PRELIMINARY 


Burroughs 
B 1700 


SOFTWARE DEVELOPMENT LANGUAGE (SDL) 
(BNF VERSION) 


B 


COPYRIGHT (c) 1974 BURROUGHS CORPORATION 


Printed in U.S. America oe 28 May 1974 — 5000847 a 


PUBLICATION CHANGE NOTICE 


The following are replacement pages for the B 1700 Software 


Development Language (SDL) (BNF Version), dated 28 May 1974. 


Printed in U.S. America 


16-27 

16-29 

16-3 1 

16-33 

16-35 

16-45 

16-47 

17-13 

17-19 

17-27 

17-29 

L731 

2273 

Bond 

2373 

VA fog | 

27730 i 
Alphabetic Inde 


ll June 1974 


0000847 


TABLE OF CONTENTS: 


GENERAL ORIENTATION: THE METALANGUAGE 
METASYMBOLS OF BNF 
BASIC COMPONENTS OF THE SDL LANGUAGE 
BASIC STRUCTURE OF THE SDL PROGRAM 
FIG 1. PROCEDURE NESTING 
FIG @. SCOPE AND CALLING ABILITY 
SEGMENT STATEMENT 
DECLARATION STATEMENT 
DATA TYPES 
DECLARE STATEMENT 
NON-STRUCTURED DECLARATIONS 
STRUCTURED DECLARATIONS . 
DYNAMIC DECLARATIONS 
PAGED ARRAY DECLARATIONS 
FILE DECLARATIONS 
SWITCH FILE DECLARATIONS: 
DEFINE STATEMENT 
FORWARD DECLARATION 
USE STATEMENT 
PROCEDURE STATEMENT 
INTRINSICS 
ASSIGNMENT STATEMENTS AND EXPRESSIONS 
FIG 3. OPERATOR PRECEDENCE TABLE 
UNARY OPERATOR 
ARITHMETIC OPERATORS 
RELATIONAL OPERATORS 
LOGICAL OPERATORS 
REPLACE OPERATORS 
CONCATENAT ION 
PRIMARY ELEMENTS OF THE EXPRESSION 
CONDITIONAL EXPRESSION 
CASE EXPRESSION 
BUMP 
DECREMENT 
ASSTGNOR 
ADDRESS VARIABLES 
INDEXING 


ADDRESS GENERATING FUNCTIONS 


SUBBIT AND SUBSTR 


FETCH.COMMUNICATE.MSG.PTR 


DESCRIPTORS 
MAKE .DESCRIPTOR : 
NEXT-PREVIOUS.ITEM 

ADDRESS GENERATORS 

VALUE VARIABLES 

VALUE GENERATING FUNCTIONS 
SWAP 
SUBBIT AND SUBSTR 
DISPATCH 
LOCATION 


—s 


Te ee ne ee 


—) 
| 


lM © 


CONVERT 
LENGTH 
MEMORY SIZE 
VALUE DESCRIPTOR 
INTERROGATE INTERRUPT STATUS 
DECIMAL CONVERSION 
BINARY CONVERSION 
TIME FUNCTION 
DATE FUNCTION 
NAME OF DAY 
BASE REGISTER — 
LIMIT REGISTER 
CONTROL STACK TOP 
DATA ADDRESS 
SEARCH.LINKED.LIST 
SORT. STEP.DOWN 
SORT . UNBLOCK 
SORT .SEARCH 
PARITY. ADDRESS 
DYNAMIC MEMORY BASE 
HASH CODE 
NEXT TOKEN 
DELIMITED TOKEN 
EVALUATION STACK TOP 
CONTROL STACK BITS 
NAME STACK TOP 
DISPLAY BASE 
CONSOLE SWITCHES 
SEARCH SERIAL LIST 
SPO INPUT PRESENT 
SEARCH.SDL.STACKS 
EXECUTE 

ADDRESS AND VALUE PARAMETE 


1/0 CONTROL STATEMENTS 


OPEN STATEMENT 
CLOSE STATEMENT 
READ STATEMENT 
WRITE STATEMENT 
SEEK STATEMENT 
ACCEPT STATEMENT 
DISPLAY STATEMENT 
SPACE STATEMENT 
SKIP STATEMENT 


EXECUTABLE STATEMENTS 


DO GROUPS 
GROUP TERMINATION STATEMENT 
IF STATEMENT 
CASE STATEMENT 
EXECUTE-PROCEDURE STATEMENT 
EXECUTE-FUNCTION STATEMENT 
DUMP | 
TRACE 
SAVE 
RESTORE 
FETCH 


HALT 
REINSTATE 
ACCESS-FPB 
REVERSE STORE 
READ CASSETTE 
OVERLAY 
ACCESS OVERLAY 
ERROR COMMUNICATE 
SORT 
SORT . SWAP 
INITIALIZE.VECTOR 
THREAD. VECTOR 
DISABLE. INTERRUPTS 
ENABLE. INTERRUPTS 
ACCESS FILE INFORMATION 
HARDWARE MONITOR 
SAVE STATE 
DEBL ANK 
FREEZE PROGRAM 
THAW PROGRAM 
DUMP FOR ANALYSIS 
COMPILE CARD INFO 
COMMUNICATE 
MODIFY INSTRUCTION 
NULL. STATEMENT 


FILE ATTRIBUTE STATEMENT (CHANGE STATEMENT) 


STOP STATEMENT 

ZIP STATEMENT 

SEARCH STATEMENT 

ACCESS FILE HEADER STATEMENT 
SEND STATEMENT 

RECEIVE STATEMENT 

ARRAY PAGE TYPE STATEMENT 
COROUTINE STATEMENT 

WAIT STATEMENT 


APPENDIX I: SYNTAX OF THE SDL LANGUAGE 
APPENDIX I]: RESERVED AND SPECIAL WORDS 
APPENDIX III: SDL CONTROL CARD OPTIONS 


CONTROL CARD OPTIONS FOR B5500 
CONTROL CARD OPTIONS FOR B1700 
APPENDIX IV: PROGRAMMING OPTIMIZATION 
APPENDIX V: SYSTEM CONTROL CARDS 
SYSTEM CONTROL CARDS FOR BS500 
SYSTEM CONTROL CARDS FOR B1700 
APPENDIX VI: CONDITIONAL COMPILATION 
APPENDIX VII: SDL PROGRAMMING TECHNIQUES 


APPENDIX VIII: THE SDL RECOMPILATION FACILITY 


APPENDIX IX: SDL MONITORING FACILITY 


APPENDIX X: BURROUGHS 81700 DATA COMMUNICATIONS SDL (DCSDL) 


OCSDL EXTENSIONS 

DCSDL DECLARATIONS 

QUEVE UVECLARAI IONS 
MESSAGE DECLARATION 
MESSAGE LINKAGE MECHANISM 
DCSDL FUNCTIONS | 


16-le 
16-12 
16-13 
16-13 
16-14 
16-15 
16-15 
16-15 
16-16 
16-17 
16-17 
16-18 
16-18 
16-18 
16-19 
16-19. 
16-20 
16-20 
16-20 
16-20 
16-21 


16-21 


16-22 
16-23 
16-24 
16-25 
16-37 
16-38 


16-39 


16-41 
16-43 
16-45 
16-46 
16-47 
16-49 
17-1 
18-1 
19-1 
19-1 
19-4 
20-1 
21-1 
21-1 
21-3 
22-1 
23-1 
24- | 
25-1. 
26-1 
26-1. 
26-2 
26-2 
26-5 
26-7 
26-8 


ALLOCATE FUNCTION 


DCSOL STATEMENTS 


DC.WRITE STATEMENT 
REMOVE STATEMENT 

QUEUE. INFO STATEMENT 
MESSAGE. INFO STATEMENT 
DE.ALLOCATE STATEMENT 
INSERT STATEMENT 

FLUSH STATEMENT | 
ENABLE .QUEUE STATEMENT 
DISABLE.QUEUE STATEMENT 
TRANSFER .MESSAGE STATEMENT 
MCS COMMUNICATE STATEMENT 


APPENDIX XI: SDL CODING SUGGESTIONS 


26-8 
26-10 
26-10 


—6e6-11 


26-13 
26-16 
26-17. 
26-17. 
e6-19 
26-20 
C6~-21 
e6-ee 
eO=cS5 
erm 


GENERAL ORIENTATION: THE METALANGUAGE 
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A LANGUAGE USED TO TALK ABOUT A LANGUAGE IS A METALANGUAGE. THE 
NATURAL LANGUAGES ARE, IN FACT, METALANGUAGES; FOR EXAMPLE, THE 
METALANGUAGE ENGLISH IS USED TO TALK ABOUT THE RELATIONSHIP 


» E=IR, - 1.E€., VOLTAGE EQUALS THE PRODUCT OF CURRENT AND 


RESISTANCE. BACKUS NAUR FORM (BNF), A METALANGUAGE POPULARIZED 
BY ITS USE TO DESCRIBE THE SYNTAX OF ALGOL 60 IS USED TO 
DESCRIBE THE SYNTAX OF SDL. TO AVOID THE CONFUSION BETWEEN THE 


» SYMBOLS OF.THE METALANGUAGE AND THOSE OF THE LANGUAGE BEING 


DESCRIBED, BNF USES ONLY 4 METALINGUISTIC SYMBOLS. LITERAL 
OCCURRENCES. OF SYMBOLS, WITH NO BRACKET ING CHARACTERS, 
REPRESENT THEMSELVES AS TERMINAL SYMBOLS OF THE LANGUAGE. 


A GRAMMAR FOR SDL IS WRITTEN AS A SET OF BNF STATEMENTS, EACH OF 
WHICH HAS A LEFT PART, FOLLOWED BY THE METASYMBOL "“"::=" 

FOLLOWED BY A LIST OF RIGHT PARTS. THE LEFT PART IS A’ PHRASE 

NAME, AND THE. RIGHT PARTS, SEPARATED BY THE METASYMBOL "/" ARE. 
STRINGS CONTAINING TERMINAL SYMBOLS AND/OR PHRASE NAMES. 


1-2 


METASYMBOLS OF BNE 


METASYMBOL ENGLISH EQUIVALENT USE 
sees IS DEFINED AS SEPARATES A PHRASE NAME FROM 
ITS DEFINITION . 
/ OR | SEPARATES. ALTERNATE DEFINITIONS 
OF A PHRASE 
<IDENTIFIER> "IDENTIFIER" THE BRACKETING CHARACTERS INDICATE 


THAT THE INTERVENING CHARACTERS 
ARE TO BE TREATED AS A UNIT, 
I.E., AS A PHRASE NAME 


NOTE: BNF ACTUALLY USES A VERTICAL BAR, RATHER THAN 
THE SLASH AS INDICATED ABOVE AS A_ SEPARATOR. 
HOWEVER, THE LINE PRINTER WHICH PRODUCES THIS— 
DOCUMENT HAS NO VERTICAL BAR IN ITS CHARACTER 
=) a ae THEREFORE, A SLASH HAS BEEN USED 
THROUGHOUT TO SEPARATE ALTERNATE SYNTACT ICAL 
DEFINITIONS. WHEN THE SLASH IS ACTUALLY — PART 
OF THE SDL SYNTAX, IT WILL BE WRITTEN AS 
<SLASH>. 


EACH BNF STATEMENT IS A REWRITING RULE, SUCH THAT WE MAY © 
SUBSTITUTE ANY RIGHT PART FOR ANY OCCURRENCE OF ITS ASSOCIATED — 
LEFT PART; AND WE HAVE A CHOICE OF RIGHT PARTS WHICH WE MAY 
SUBSTITUTE. THE FOLLOWING EXAMPLE SPECIFIES THE USE OF THESE 
RULES TO DETERMINE THOSE STRINGS WHICH ARE GRAMMATICALLY 
CORRECT IDENTIFIERS IN SDL. | 


<LETTER> ::5 A/BICTOIESFIG/IH/IITSS/IKILIMS 
NEOLOCFOPR ISL EIOCVPWLKEY 72 

<DIGIT> 335 O/ 1/27 BL HSE 6/7/8/9— 

<DOT> ::= 

<IDENTIFIER> ::=  <LETTER> 


/ SIDENTIFTER>D <LETTER> 
/ <IDENTIFIER> <DIGIT> 
/ SIDENTIFIER> <DOT> 


XYZ1e.B4 IS A PROPER SDL <IDENTIFIER> SINCE IT CAN BE GENERATED 
AS A TERMINATING SET OF SYMBOLS BY USING THE BNF RULES. 


<IDENTIF IERD> 
<IDENTIFIERD 
<IDENTIFIER> 
<IDENTIFIER>D 
<IDENTIFIER>D 
<IDENTIFIER>D 
<IDENTIFIER> 
<IDENTIFIER> 


L=S 


<DIGIT> 
<LETTER>D 4 
<DOT> BY 
<DIGIT> .BY 
<DIGIT> 2.BY4 
<LETTER> 1e.B4 
<LETTER> Z12.BY4 


<LETTER> YZ12.BY4 


XYZ12.B4 


NOTICE THAT THE BNF RULES DO NOT, IN ANY WAY, LIMIT THE NUMBER 
OF LETTERS, DIGITS, AND DOTS WHICH COMPRISE THE <IDENTIFIERD. 
IN SUCH CASES, FURTHER SEMANTIC RULES WILL BE SPECIFIED; E.G., 
AN SDL <IDENTIFIER> IS LIMITED TO A MAXIMUM OF 63 CHARACTERS. 


BASIC COMPONENTS OF THE SDL LANGUAGE 
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IN ORDER TO UNDERSTAND SDL GRAMMAR, THE USER SHOULD BE FAMILIAR 
WITH THE MOST BASIC ELEMENTS OF THE SDL LANGUAGE BELOW. 


<DIGIT> ::= | OS + 1.0? axe FEL 'S 
C<LETTER> ::5 Alt ES CTD SS ven FRY LZ 
<SPECTAL CHARACTER) ::= <AMPERSAND> / ER. he of! ye PG, YS 
| LEP ESL DD IAEA TS FCT hn fH 
/ ~ / €SLASH> / [ / ] / <BLANK> 
CAMPERSAND>D ::= 8, 
.SLASH> ::= / 
<BLANK > = 
NOTE: <BLANK> IS THE OCCURENCE OF ONE NON-VISIBLE 
CHARACTER “ ". | 
CIDENTIFIER> ::= C<LETTER> / <IDENTIFIER> <LETTERD © 


/ <IDENTIFIER>D <DIGIT> 
/ <IDENTIFIER>D <DOT> 


RESTRICTIONS: 


ie AN IDENTIFIER MUST BEGIN WITH A LETTER. 

2. AN IDENTIFIER MAY NOT CONTAIN BLANKS. 

3. AN IDENTIFIER MAY CONTAIN A MAXIMUM OF 63. 
CHARACTERS. 

uy EXCEPT FOR SEGMENT AND GROUP IDENTIFIERS, 


RESERVED WORDS MAY NOT BE USED AS IDENTIFIERS. 


Ds "SPECTAL" WORDS MAY BE USED FOR SEGMENT AND 
DO-GROUP <IDENTIFIER>S WITHOUr LOSING THEIR 
SPECIAL SIGNIFICANCE IN SOL. 


6. IN ALL OTHER CASES, "SPECIAL" WORDS MAY BE 
USED AS IDENTIFIERS, HOWEVER, THEY LOSE THEIR 
SPECIAL SIGNIFICANCE THROUGHOUT THE ENTIRE 
PROGRAM WHEN DECLARED AT LEXIC LEVEL 0. WHEN 
DECLARED AT ANY GREATER LEXIC LEVEL, THEY ONLY 
LOSE THETR SPECIAL MEANING WITHIN THE 
PROCEDURE IN WHICH THEY ARE DECLARED. 


(ALSO SEE "BASIC STRUCTURE OF THE SDL PROGRAM" 
AND "APPENDIX III") | 


<COMMENT STRING ::= <SLASH>* <COMMENT TEXT> *<SLASHD . 


RESTRICTIONS: 


A THE PAIR /* PRECEDING THE <COMMENT TEXT> MUST 
APPEAR AS ADJACENT SYMBOLS. SIMILARILY, THE 
PAIR */ FOLLOWING THE <COMMENT TEXT> MUST ALSO 
APPEAR AS ADJACENT SYMBOLS. 


<COMMENT TEXT> 3: <EMPTY> a, 
| / <COMMENT TEXT CHARACTER> 
/ <COMMENT TEXT CHARACTER> 
<COMMENT TEXT> 


<EMPTY> ::= 
NOTE: <EMPTY> IS THE NULL SET OR THE OCCURENCE OF 
| NOTHING. | 
«COMMENT TEXT 
CHARACTER> ::= <DIGIT> 
a / <LETTER> 


/ <SPECTAL CHARACTER) 
/" {| @ f # / BR 


<CARD TERMINATOR? ::= R 


RESTRICTIONS: — 


Ls A & IS TREATED AS ANY OTHER STRING CHARACTER 
IF IT IS CONTAINED WITHIN A <CHARACTER STRING) 

OR IN <COMMENT TEXT>. HOWEVER, IN ALL OTHER 

CASES, A * WILL “AUSE THE SCANNING OF THE 
CURRENT SOURCE I/*AGE TO TERMINATE, AND CAUSE 
SCANNING TO CONTIPJE IN THE NEXT SOURCE IMAGE. 


<NUMBER> ::= 


<BINARY DIGIT> 


“BINARY DIGITS) 


CQUARTAL DIGIT> 


<QUARTAL DIGITS> 


<OCTAL DIGIT> 


<OCTAL DIGITS> 
CHEX DIGIT> ::= 
<HEX DIGITS> 


«BIT GROUP>::= 


<BIT STRING) :: 


<BITS>::= 


RESTRICTIONS: 


il 


<DIGIT> / <NUMBER> <DIGIT> 

NOTE: RANGE OF SIGNED NUMBERS -(2 EXP 23) TO 
(2 EXP 23)-1. RANGE OF UNSIGNED 
NUMBERS 0 TO (2 EXP 24)-1. ; | 
0 / 1 / <COMMENT STRINGD 


<BINARY DIGIT> 
/ <BINARY DIGITS> <BINARY DIGIT> 


<BINARY DIGIT> / 2 / 3 


C<QUARTAL DIGIT> 
/ <QUARTAL DIGIT> <QUARTAL DIGITS> 


<QUARTAL DIGIT> 74/5/67 7 


<OCTAL DIGIT> | 
/ <OCTAL DIGITS> <OCTAL DIGIT> 


<OCTAL DIGIT> 
LOREAL CLO ea 


<HEX DIGIT> 
/ “HEX DIGITS> <HEX DIGIT> 


(4) <HEX DIGITS> 
/ (3) <OCTAL DIGITS> 
(2) <QUARTAL DIGITS> 
/ (1) <BINARY DIGITS> 


™~ 


@®<BITS>® 


<BIT GROUP> / <HEX DIGITS> 
/ <BITS> <BIT GROUP> 
/ <EMPTY> 


Ls IF NO BIT MODE IS SPECIFIED (IE. THE INDICATOR: 
IN PARENTHESES IS OMITTED). "HEX" I$ 


DIGIT 
ASSUMED. | 
STRING DOES NOT START WITH A MODE INDICATOR; 


WHEN 


THIS CAN ONLY BE ASSUMED IF THE BIT 


iHE MODE IS SWITCHED TO "HEX", AN 


EXPLICIT "(4)" [S REQUIRED. 


AS NOTED ABOVE, A <COMMENT STRING> MAY APPEAR 
ANYWHERE WITHIN A <BIT STRING>, BUT NOT WITHIN 
THE PARENTHESES BOUNDING THE INDICATOR DIGIT. 
THE PRESENCE OF A <COMMENT STRING> WILL, IN NO 
WAY, ALTER THE VALUE OF THE <BIT STRING> 


CONTAINING IT. 


EXAMPLE : 
@(3)6330316260/* THIS */313230/* IS */63302560/* THE */ 
4321626360/* LAST #/512523465124/* RECORD */@ 


<STRING> ::= — SCHARACTER STRINGD 
7 &BIT STRING> 

<CHARACTER STRING? ::= -"€STRING CHARACTER LIST>" 

<STRING CHARACTER LIST> ::=  <EMPTY>D 


/ <STRING CHARACTER> 
<STRING CHARACTER LIST> 


<STRING CHARACTER? ::= <DIGIT> / <LETTER> / <SPECIAL CHARACTERD 
/"" | @s/ #/ zB 
RESTRICTIONS: 
1. IF A QUOTE SIGN IS DESIRED IN A’ CHARACTER 


STRING, THEN TWO ADJACENT QUOTE SIGNS MUST. 
APPEAR IN THE TEXT. 


EXAMPLE : DECLARE STRING CHARACTER (6); 
QUOTE CHARACTER (1) 
STR I NG < i AB “" "CDE “0 : 
QUOTE Qn WH ‘ 


AFTER EXECUTION, STRING WILL CONTAIN: AB"CDE, 
AND QUOTE WILL CONTAIN: ". 


NOTE: A <CHARACTER STRING> MAY CONTAIN A MAXIMUM OF. 
256 CHARACTERS. 


<CONSTANT> ::= <NUMBER> / <STRING> / TODAYS.DATE 
| | / SEQUENCE .NUMBER 
/ HEX.SEQUENCE .NUMBER 


NOTE: “TODAYS.DATE" REPRESENTS THE DATE AND TIME OF 
COMPILATION OF THE PROGRAM. IT IS THE SAME AS 
THE DATE AND TIME APPEARING AT THE TOP OF THE 
PROGRAM LISTING. IT IS A CHARACTER STRING Win 
THE FOLLOWING FORMAT ~- 
"MM/DD/YY HH: MM" 


NOTE: “SEQUENCE . NUMBER“ REPRESENTS A «CHARACTER 
STRING> OF 8 CHARACTERS WHICH IS THE SEQUENCE 
NUMBER OF THE CURRENT SOURCE IMAGE BEING 
CONPILED. | oe 


"HEX. SEQUENCE .NUMBER" REPRESENTS A BIT STRING 


e 


OF 8 (HEX) DIGITS WHICH IS THE SEQUENCE NUMBER 
OF THE CURRENT SOURCE IMAGE LINE BEING 
COMPILED. IF THIS SEQUENCE FIELD IS BLANK, 
THEN HEX.SEQUENCE ..NUMBER = @00000000@¢. 


IF THE CURRENT SOURCE IMAGE LINE SEQUENCE 
NUMBER IS 12753000, THEN ON THIS LINE: 


SEQUENCE .NUMBER = "12753000" a 
HEX .SEQUENCE.NUMBER = 127530008 . 


BASIC STRUCTURE OF THE SDL PROGRAM 
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<PROGRAM> ::= 


<DECLARATION STATEMENT 
LIST> ::= 


<DECLARATION STATEMENT > 


<PROCEDURE STATEMENT 
LIST> ::s 


<PROCEDURE STATEMENT > 


<EXECUTABLE STATEMENT 
LIST> ::= 


SEXECUTABLE STATEMENT > 


AN, UR OS TR TL TOT OS TM UE 


<DECLARATION STATEMENT LIST> 
<PROCEDURE STATEMENT LIST> 
<EXECUTABLE STATEMENT LIST> 
FINI 


CEME EY 
<DECLARATION STATEMENT > 
<DECLARATION STATEMENT LIST> 


<DECLARE STATEMENT >; 

<DEF INE STATEMENT >; 

<FILE DECLARATION STATEMENT >; 
<SWITCH FILE DECLARATION 
STATEMENT >; 

<FORWARD DECLARATIOND 

<USE STATEMENT > ; 

<SEGMENT STATEMENT > 
<DECLARATION STATEMENT > 


<EMPTY> 
<PROCEDURE STATEMENT>; 
<PROCEDURE STATEMENT LIST> 


<PROCEDURE DEF INITION> 
<SEGMENT STATEMENT > 
<PROCEDURE STATEMENT > 


<EXECUTABLE STATEMENT > 
<EXECUTABLE STATEMENT > 
<EXECUTABLE STATEMENT LIST> 


<DO GROUP>; 
<IF STATEMENT> 

<CASE STATEMENT>; 

<ASSIGNMENT STATEMENT); 
<EXECUTE-PROCEDURE STATEMENT) ; 
<EXECUTE-FUNCTION STATEMENT); 
<GROUP TERMINATION STATEMENT) ; 
<1/0 CONTROL STATEMENT> 
<MODIFY INSTRUCTIOND; 

<NULL STATEMENT > 

<STOP STATEMENT>; 

<FILE ATTRIBUTE STATEMENT); 
<SEND STATEMENT > 

<RECEIVE STATEMENT> 


<ACCESS FILE HEADER STATEMENT). 
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<SEARCH STATEMENT > 

<ZIP STATEMENT > 

<ARRAY PAGE TYPE STATEMENT > 
<COROUTINE STATEMENT > 

<WAIT STATEMENT >; 

<SEGMENT STATEMENT > 
<EXECUTABLE STATEMENT > 


™~ NR 


A PROGRAM, WRITTEN IN SDL, MUST FOLLOW THE SEQUENTIAL STRUCTURE 
DESCRIBED IN THE ABOVE SYNTAX. THAT IS, THE EXECUTABLE SECTION 
OF THE PROGRAM MAY NOT APPEAR UNTIL ALL PROCEDURES HAVE BEEN 
DEFINED, AND PROCEDURES MAY NOT BE DEFINED BEFORE THE FORMATS 
OF DATA ITEMS (VARIABLES, ARRAYS, ETC.) HAVE BEEN DECLARED. 
"FINI" MUST PHYSICALLY OCCUR AS THE FINAL STATEMENT IN- THE 
PROGRAM. 


THE PROCEDURE STATEMENT, (INCLUDING DECLARATION, PROCEDURE, AND 
EXECUTABLE STATEMENTS), IS THE BASIC STRUCTURE IN SDL. AN SDL 
PROGRAM IS A COLLECTION OF PROCEDURES, EACH OF WHICH CAN BE 
DESCRIBED FOR CONCEPTUAL PURPOSES AS A MICROCOSM OF _ THE 
PROGRAM. ANY GIVEN PROCEDURE MAY CONTAIN A COLLECTION OF OTHER 
PROCEDURES WITHIN ITSELF. THIS PROCESS IS KNOWN AS) "NESTING". 


THE "LEXICOGRAPHIC LEVEL" OF ANY STATEMENT IN THE PROGRAM IS 
EQUAL TO THE NUMBER OF PROCEDURES IN WHICH IT IS NESTED. THE 
PROGRAM ITSELF WILL ALWAYS BE LEXIC LEVEL 0, AND NO PROCEDURE 
MAY HAVE A LEXIC LEVEL GREATER THAN 15. THE DIAGRAM IN’ FIGURE 
1 ILLUSTRATES PROCEDURE NESTING AND LEXIC LEVELS. 


IT IS IMPORTANT TO UNDERSTAND THE RELATIONSHIPS BETWEEN THESE 
NESTED PROCEDURES. AS FIGURE 1. INDICATES, THE NAME OF ANY 
GIVEN PROCEDURE IS CONTAINED IN THE PROCEDURE IN WHICH IT IS 
NESTED AT THE NEXT LOWER LEXIC LEVEL. FOR EXAMPLE, PROCEDURE D 
IS A LEXIC LEVEL @ PROCEDURE, HOWEVER, ITS NAME, "D", IS PART 
OF LEXIC LEVEL 1. 


THE "SCOPE" OF ANY GIVEN PROCEDURE IS RECURSIVELY DEFINED AS: 


1) THE PROCEDURE ITSELF, 
2) ANY PROCEDURE(S) NESTED WITHIN THE PROCEDURE, 
3) ANY PROCEDURE (AND ITS NESTED PROCEDURES) 


WHOSE NAME APPEARS AT THE SAME LEXIC LEVEL AND 
WITHIN THE SAME PROCEDURE AS ITS OWN. NAME, AND 


ub) THE PROCEDURE IN WHICH ITS OWN NAME IS 
DEFINED. 
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IN FIGURE 1., ONE CAN SEE THAT THE SCOPE OF PROCEDURE B 
INCLUDES: 


1) ITSELF, I.E., PROCEDURE B 
Cc) THE NESTED PROCEDURES WITHIN B (C AND D), 
3) THE OTHER PROCEDURES DEFINED AT LLO: E- (AND 


ITS NESTED PROCEDURES F AND G) AND PROCEDURE 
H (AND ITS NESTED PROCEDURES J, K, L, M, N, 
AND P. 


Lt ) THE PROCEDURE WHICH DEFINES B, IN THIS’ CASE, 
THE PROGRAM A. 


NOTE: ALL THE LEXIC LEVEL O PROCEDURES HAVE SCOPE TO 
EACH OTHER. THIS OCCURS BECAUSE OF RULE 4 
ABOVE, WHEREIN THE PROGRAM ITSELF IS THOUGHT 
TO BE A "PROCEDURE". 


IN THE SAME MANNER, THE SCOPE OF PROCEDURE J INCLUDES J, K, L, 
M, N, P, AND H. 


BY UNDERSTANDING THE RELATIONSHIPS BETWEEN THE VARIOUS 
PROCEDURES, IT IS POSSIBLE TO DETERMINE WHICH PROCEDURES MAY BE 
INVOKED BY ANY GIVEN PROCEDURE. SDL HAS BEEN DEFINED SO THAT 
ANY PROCEDURE X MAY CALL OR INVOKE ANY PROCEDURE Y, IF THE 
SCOPE OF Y ENCOMPASSES X. 


IN FIGURE 1., PROCEDURE J MAY CALL PROCEDURES J,K,L,M,H,E, AND 
B BECAUSE EACH OF THESE CONTAINS J IN ITS SCOPE. 


NOTE: JU CANNOT CALL THE PROGRAM A SINCE THE NAME OF 
THE PROGRAM, IF THERE IS ONE, EXISTS OUTSIDE 
THE PROGRAM AND 1S, THEREFORE, NOT COMPILED; 
HOWEVER, J MAY ACCESS THE DATA CONTAINED IN A 
(I.E., Al, Ae, AS, AND AY). 


FIGURE @ SHOWS THE RELATIONSHIP BETWEEN SCOPE AND CALLING 
ABILITY FOR PROGRAM A. 


PROGRAM A 
DECLARE Al, Ae, A3, Au; 
PROCEDURE B; 
DECLARE B1, Be, B3; 
PROCEDURE C; 


DECLARE Cl, Ce, C3: ) 
EXECUTABLE STATEMENTS: 
END C; | 


PROCEDURE 0D; | 


EXECUTABLE STATEMENTS; 
END D; 


EXECUTABLE STATEMENTS; 
END B; 

PROCEDURE E; 

DECLARE E1, Ee; 

PROCEDURE F; 
DECLARE Fl, Fe, F3; 
EXECUTABLE STATEMENTS; 
END F; 

PROCEDURE G; 

| DECLARE G1, Ge; 
EXECUTABLE STATEMENTS; 
END G; 

EXECUTABLE STATEMENTS; 

END E; 

PROCEDURE H; | | 

DECLARE H1, He, H3, H4; 

PROCEDURE J; | 
PROCEDURE kK; 


ae 


PROCEDURE L; 


LLO Lie | LL S* | 


PROCEDURE M; 
PROCEDURE N; 


PROCEDURE P; 


EXECUTABLE STATEMENTS; 
FINI Z 


* LL = LEXICOGRAPHIC LEVEL 


FIG 1. PROCEDURE NESTING 


SEGMENT STATEMENT 


SEGMENT STATEMENT> ::= SEGMENT (<SEGMENT IDENTIFIERD) ; 
/ SEGMENT.PAGE (<SEGMENT IDENTIFIER>D 
OF <PAGE IDENTIFIERD) ; 


<SEGMENT IDENTIFIER> ::= <IDENTIFIER> 


<PAGE IDENTIFIERD ::= <IDENTIFIERD>D 


AS THE BNF INDICATES, THE <SEGMENT STATEMENT> MAY OCCUR ANYWHERE 
WITHIN AN SDL PROGRAM. ITS PURPOSE IS TO REDUCE THE CORE 
REQUIREMENT OF THE PROGRAM BY ALLOWING SEGMENTS TO OVERLAY EACH 
OTHER. 


THERE IS A MAXIMUM OF 16 PAGES WITH 64 SEGMENTS PER PAGE. THE 
SEGMENT NAMES REPRESENT A PAGE NUMBER-SEGMENT NUMBER PAIR. 


IT IS ONLY NECESSARY TO SPECIFY SEGMENT.PAGE ONCE FOR EACH PAGE. 
EVERY SUBSEQUENT SEGMENT WILL BE COMPILED TO THAT PAGE UNTIL 
ANOTHER SEGMENT.PAGE IS ENCOUNTERED. 


IF THERE ARE NO SEGMENT.PAGE SPECIFICATIONS, ALL SEGMENTS WILL 
BE COMPILED TO PAGE ZERO, AND THERE MAY BE NO MORE THAN 64 
SEGMENTS TOTAL. IF A PROGRAM IS TO BE SEGMENTED, THE FIRST 
STATEMENT MUST BE A <SEGMENT STATEMENT>. OTHERWISE A WARNING 
MESSAGE WILL APPEAR IN THE SOURCE LISTING. 


THERE ARE TWO TYPES OF SEGMENTS: "PERMANENT" AND "TEMPORARY". 
EVERY STATEMENT FOLLOWING A PERMANENT <SEGMENT STATEMENT> WILL 
BE COMPILED TO THAT SEGMENT UNTIL ANOTHER <SEGMENT STATEMENT > 
IS READ. NON-CONSECUTIVE STATEMENTS MAY BE COMPILED TO THE SAME 
SEGMENT BY USING THE SAME <SEGMENT IDENTIFIER>. NOTE, HOWEVER, 
THAT <DO GROUPS (SEE "DO GROUPS") AND PROCEDURES MUST END IN 
THE SAME SEGMENT IN WHICH THEY BEGIN. 


THE FOLLOWING EXAMPLE ILLUSTRATES THE USE OF THE "PERMANENT" 
<SEGMENT STATEMENT>. 


SEGMENT (XX); 

DECLARE Al, Ae, AS, A4; 

PROCEDURE B; 
DECLARE Bl, Be, B3; 
SEGMENT (YY); 
PROCEDURE C; 


END C; 
PROCEDURE D; 


END D; 
SEGMENT (XX) ; 


END B; 


FINI 


ONLY PROCEDURES C AND D HAVE BEEN COMPILED TO THE SEGMENT "YY". 
SEGMENT "XX" IS SEGMENT ZERO AND INCLUDES EVERYTHING ELSE. 


A <SEGMENT STATEMENT> IS TREATED AS "TEMPORARY" ONLY WHEN’ IT 
PRECEDES A "SUBORDINATE EXECUTABLE STATEMENT" WITHIN ANY OF THE 
FOLLOWING STATEMENTS: 


<ACCESS FILE HEADER STATEMENT> <SEARCH DIRECTORY STATEMENT > 


<CASE STATEMENT > <SEND STATEMENT > 
<IF STATEMENT > <SPACE STATEMENT > 
<READ STATEMENT > <WRITE STATEMENT> 


<RECEIVE STATEMENT > <OPEN STATEMENT > 


IN THESE SPECIFIC CASES, THE SEGMENT CHANGE APPLIES ONLY TO THE 
SUBORDINATE STATEMENT FOLLOWING IT. FOR EXAMPLE, THE SYNTAX FOR 
THE <IF STATEMENT> COULD BE WRITTEN AS FOLLOWS: 


CIF STATEMENT ::= IF <EXPRESSION 
| THEN <SUBORDINATE EXECUTABLE STATEMENT> 

/ IF <EXPRESSION> 
THEN <SUBORDINATE EXECUTABLE STATEMENT > 
ELSE <SUBORDINATE EXECUTABLE STATEMENT> 
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THE SEGMENTATION OF A HYPOTHETICAL <IF STATEMENT> IS PRESENTED 
BELOW TO ILLUSTRATE THE USE OF A "TEMPORARY" <SEGMENT 
STATEMENT>. 


SEGMENT (A); 
PROCEDURE X; 


IF YZ THEN Y:=Z; ELSE 
SEGMENT (B); 
DO SOME .FUNCTION; 


*k * * *& * 


END SOME .FUNCTION; 


Z := C+D 
END X; 


* COMPILED TO SEGMENT (B) 


BECAUSE THE <DO GROUP>, '"SOME.FUNCTION", IS A SUBORDINATE 
<EXECUTABLE STATEMENT> IN THE <IF STATEMENT>, SEGMENT . (B) 
AUTOMATICALLY ENDS WHEN THE <DO GROUP> IS TERMINATED. ALL 
STATEMENTS FOLLOWING ARE COMPILED TO SEGMENT (A). 


NOTICE THE DISTINCTION BETWEEN SEGMENT (A), A’ "PERMANENT" 
<SEGMENT STATEMENT>, AND SEGMENT (B), A "TEMPORARY" ONE. 7 


DECLARATION STATEMENT 


DATA TYPES 


THREE MAIN TYPES OF DATA FIELDS MAY BE DECLARED IN SDL: 


1) BIT 
2) CHARACTER 
3) FIXED 


A BIT FIELD CONSISTS OF A NUMBER OF BITS SPECIFIED BY A NUMBER 
IN PARENTHESES FOLLOWING THE RESERVED WORD "BIT". THE FIELD MAY 
BE A MAXIMUM OF 65535 BITS. 


A CHARACTER FIELD IS A NUMBER OF CHARACTERS, 8 BITS EACH, 
SPECIFIED BY A NUMBER IN PARENTHESES FOLLOWING THE RESERVED 
WORD "CHARACTER". THE FIELD MAY BE A MAXIMUM OF 8191 
CHARACTERS. 


A FIXED DATA FIELD IS A 24-BIT SIGNED NUMERIC FIELD WHERE THE 
HIGH ORDER BIT IS INTERPRETED AS THE SIGN. NEGATIVE NUMBERS ARE 
REPRESENTED IN 2@-S COMPLEMENT FORM. 


THE RANGE OF SIGNED NUMBERS (1.E., FIXED DATA FIELDS) IS ~—(e EXP 
23) TO (2 EXP 23)-1. THE RANGE OF UNSIGNED NUMBERS (BIT DATA 
FIELDS) IS 0 TO (2 EXP 24)-1. BIT FIELDS, AS NOTED ABOVE, ARE 
NOT RESTRICTED TO 24 BITS. HOWEVER, FOR ARITHMETIC PURPOSES , 
ONLY THE LOW-ORDER 24 BITS WILL BE CONSIDERED. 


DECLARE STATEMENT 


—_— wm owe awe eee eee cee cme com ee cee com awe ene cope ee ue 


<DECLARE STATEMENT> ::= DECLARE <DECLARE ELEMENT > 
/ <DECLARE STATEMENT>, <DECLARE ELEMENT > 


<DECLARE ELEMENT> ::= <DECLARED PART > 

<TYPE PART > 

/ <STRUCTURE LEVEL NUMBER> 
<STRUCTURE DECLARED PART > 
<STRUCTURE TYPE PART> 

/ DYNAMIC <SIMPLE IDENTIFIERD 
<DYNAMIC TYPE PART > 

/ PAGED <ELEMENTS-PER-PAGE PART > 
<ARRAY IDENTIFIER> <ARRAY BOUND> 
<TYPE PART > 


THE <DECLARE STATEMENT > SPECIFIES THE ADDRESSES AND 
CHARACTERISTICS OF CONTENTS OF CORE STORAGE AREAS. 


ANY NUMBER OF <DECLARE ELEMENT>S MAY BE DECLARED IN ONE <DECLARE 
STATEMENT>, AND MUST BE SEPARATED BY COMMAS. BEST CODE IS 

GENERATED IF ALL ELEMENTS ARE DECLARED WITHIN ONE <DECLARE 

STATEMENT>. (SEE APPENDIX VII). 


THE MAXIMUM NUMBER OF DATA ELEMENTS (INCLUDING FILLERS, DUMMYS, 
AND IMPLICIT FILLERS) CONTAINED IN ONE STRUCTURE VARIES AS TO 
THE COMPILIER BEING USED, (CURRENTLY 50 - SMALL VERSION, 75 - 
LARGE VERSION). ANY ATTEMPT TO DECLARE MORE WILL CAUSE A TABLE 
OVERFLOW ERROR TC BE DETECTED AT COMPILE TIME. 


AN ARRAY MAY HAVE A MAXIMUM OF 65535 ELEMENTS, EACH BEING A 
MAXIMUM OF 65535 BITS (8191 CHARACTERS). 


THE FIVE TYPES OF <DECLARE ELEMENT>S ARE EACH DISCUSSED BELOW. 


NON-STRUCTURED DECLARATIONS 


«DECLARE ELEMENT> ::= 


<DECLARED PART> ::= 


<COMPLEX IDENTIFIER 
LIST> ::= 


<COMPLEX IDENTIFIER> 


<SIMPLE IDENTIFIERD 


<ARRAY IDENTIFIER> 


<ARRAY BOUND> : = 


<REMAP IDENTIFIERD 
<TYPE PART>D ::= 
<FIELD SIZE> ::= 


( 


DATA MAY BE DECLARED AS 


<DECLARED PART> 
<TYPE PART>/... 


<COMPLEX IDENTIFIER> | 
(<COMPLEX IDENTIFIER LIST>) 
<COMPLEX IDENTIFIER> REMAPS 
<REMAP IDENTIFIER? 


<COMPLEX IDENTIFIER> 
<COMPLEX IDENTIFIER>D, 
<COMPLEX IDENTIFIER LIST> 


<SIMPLE IDENTIFIERD 
<ARRAY IDENTIFIER> <ARRAY BOUND> 


<IDENTIFIER> 
<IDENTIFIER> 
(<NUMBER>) 

BASE | 
<SIMPLE IDENTIFIER> 
<ARRAY IDENTIFIER> 
FIXED 

CHARACTER <FIELD SIZE> 
BIT <FIELD SIZE> 


(<NUMBER> ) 


SIMPLE, HAVING ONE OCCURRENCE, OR AS 


SUBSCRIPTED, HAVING AS MANY OCCURRENCES AS SPECIFIED BY THE 


<ARRAY BOUND>. 


THE <TYPE PART> SPECIFIES THE TYPE OF DATA IN THE FIELD AND THE 


FIELD SIZE. 


AS THE SYNTAX INDICATES, DIFFERENT DATA FIELDS HAVING THE SAME 
FORMAT MAY BE DECLARED COLLECTIVELY AS A <COMPLEX IDENTIFIER 


LSID. 


6-3 


THE FOLLOWING EXAMPLES ILLUSTRATE THE VARIOUS OPTIONS AVAILABLE 
IN THIS TYPE OF <DECLARATION STATEMENT>. 


DECLARE A FIXED, 
B CHARACTER (10), 
C BIT (40), 
(D, E, F (5)) BIT (10), 
G (20) FIXED, 
H (5) CHARACTER (6); 


WHERE 
ls A IS A 24+ BIT SIGNED NUMERIC FIELD. 
e. B IS A 10 BYTE CHARACTER FIELD. 
34 C IS A 4O BIT FIELD. 
Ms D AND E ARE 10-BIT FIELDS EACH. 
ae F IS ALSO A 10-BIT FIELD AND OCCURS 5 TIMES. 
6. G OCCURS 20 TIMES AND [IS A e4-BIT SIGNED 
NUMERIC FIELD. 
Es H IS A 6-BYTE CHARACTER FIELD OCCURRING 5 


LIMES, 


DATA FIELDS MAY BE RE-FORMATTED BY THE USE OF THE REMAPPING 
DEVICE: 


<COMPLEX IDENTIFIER> REMAPS <REMAP IDENTIFIER> <TYPE PART> 


REMAPPING IS SUBJECT TO THE SAME GENERAL RULES DISCUSSED ABOVE. 
THE FOLLOWING EXAMPLE BEST ILLUSTRATES ITS USE. 


A FIXED, B BIT (50), 
AA REMAPS A CHARACTER (3), 
BB(e2) REMAPS B FIXED; 


NOTE THAT BB SPECIFIES 48-BITS (OR @ ELEMENTS, e@4-BITS EACH). 
THE LAST TWO BITS WILL BE CONSIDERED AS AN IMPLIED FILLER BY 
THE COMPILER. A FIELD MAY NOT BE REMAPPED LARGER THAN’ ITS 
ORIGINAL SIZE. 


THERE IS NO LIMIT ON THE NUMBER OF TIMES A FIELD MAY BE 
REMAPPED. A FIELD WHICH HAS REMAPPED ANOTHER MAY ITSELF BE 
REMAPPED. THE REMAP OPTION SPECIFIES THAT THE IDENTIFIER ON THE 
LEFT SIDE OF THE RESERVED WORD "REMAPS" WILL HAVE THE SAME 
STARTING ADDRESS AS THE IDENTIFIER ON THE RIGHT SIDE. 
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FOR RULES CONCERNING THE REMAPPING OF DYNAMIC OR’ FORMAL 
DECLARATIONS, SEE THOSE SECTIONS. 


A DATA FIELD MAY BE REMAPPED TO BASE WHICH WILL GIVE THE FIELD 
A RELATIVE ADDRESS OF ZERO. FOR EXAMPLE: 

DECLARE X REMAPS BASE BIT(7): 
THIS DEVICE IS USED AS A FREE STANDING DECLARATION SINCE IT DOES 


NOT REMAP A PREVIOUSLY DECLARED DATA ITEM AND IS USED PRIMARILY 
WITH DATA TO BE INDEXED (SEE "ADDRESS VARIABLES"). 


<DECLARE ELEMENT> ::= .../<STRUCTURE LEVEL NUMBER> 
<STRUCTURE DECLARED PART > 
<STRUCTURE TYPE PART>/... 


<STRUCTURE LEVEL 


NUMBER> ::= <NUMBER> 
<STRUCTURE DECLARED 
PART> ::= <DECLARED PART > 

/ FILLER 

/ <DUMMY PART> REMAPS <REMAP IDENTIFIERD 
<DECLARED PART> ::= SEE "NON-STRUCTURED DECLARATIONS" 
<DUMMY PART> ::= DUMMY <ARRAY BOUND PART > 


<ARRAY BOUND PART > 


<EMPTY> 
/ <ARRAY BOUND> 


<ARRAY BOUND> ::= (<NUMBER > ) 


<REMAP IDENTIFIER> BASE 
/ <SIMPLE IDENTIFIER> 


/ <ARRAY IDENTIFIER> 


<STRUCTURE TYPE PART> ::= <EMPTY> 
/ <TYPE PART> 


<TYPE PART> ::= SEE "NON-STRUCTURED DECLARATIONS" 


SDL ALLOWS THE STRUCTURING OF DATA WHERE A FIELD MAY BE 
SUBDIVIDED INTO A NUMBER OF SUB-FIELDS, EACH OF WHICH HAS ITS 
OWN IDENTIFIER. THE WHOLE STRUCTURE IS ORGANIZED IN A 
HIERARCHICAL FORM, WHERE THE MOST GENERAL DECLARATION IS A 
LEVEL O1(OR 1). NO DECLARATION MAY BE ON A LEVEL GREATER’ THAN 
99. A SUBDIVIDED FIELD IS CALLED A GROUP ITEM, AND A FIELD NOT 
SUBDIVIDED IS KNOWN AS AN ELEMENTARY ITEM. 


THE TYPE AND LENGTH OF DATA NEED NOT BE SPECIFIED ON THE GROUP 
LEVEL. ALL ELEMENTARY ITEMS MUST INDICATE TYPE AND LENGTH, AND 
THE COMPILER WILL ASSUME TYPE BIT AND ADD THE LENGTHS OF THE 
COMPONENTS TO DETERMINE THE LENGTH OF THE GROUP ITEM. FOR 
EXAMPLE: | 


DECLARE 01 A, 
| Oe C, 
03 D BIT(e20), 
03 E BIT(30), 
02 D CHARACTER(S) ; 


IN THIS EXAMPLE, BOTH A AND C ARE CONSIDERED GROUP ITEMS, WITH 
A HAVING A TOTAL LENGTH OF 90 BITS AND C BEING 50 BITS LONG. 


FILLERS MAY BE USED TO DESIGNATE CERTAIN ELEMENTARY ITEMS WHICH 
THE PROGRAM DOES NOT REFERENCE. IF THE FILLER IS THE LAST ITEM 
IN A STRUCTURE, IT MAY BE OMITTED, AND THE COMPILER WILL 
CONSIDER THE ITEM TO BE AN IMPLIED FILLER. A FILLER vo NEVER 
BE USED AS A GROUP ITEM. 


IF THE 01 LEVEL GROUP ITEM IS AN ARRAY, IT IS MAPPED AS A 
CONTIGUOUS AREA IN MEMORY. HOWEVER, SUBDIVISIONS OF THIS ARRAY 
ARE NOT CONTIGUOUS. IN THE EXAMPLE STRUCTURE BELOW: 


01 A(5) BIT(48), 01 A(5), 

Oe B FIXED, OR O02 B FIXED, 

Oe C FIXED; Oe C FIXED; 
fae i ee oS [ose ! Pee a a a | 
| AO | Al | Ae AS AY | 
BOT COT Bl Cl) Be | ca} B3 C3 | Br C4 | 
24-BITS 

48-BITS ~ 


IF A GROUP ITEM IS AN ARRAY, AN ARRAY SPECIFICATION MAY NOT 
APPEAR IN ANY SUBORDINATE ITEM; THAT IS, ONLY ONE-DIMENSIONAL 
ARRAYS ARE ALLOWED. DOWN-LEVEL CARRY OF ARRAY SPECIFICATIONS IS 
IMPLIED. 


STRUCTURED DATA MAY BE REMAPPED IN THE SAME. MANNER AS 
NON-STRUCTURED DATA. IN ADDITION, STRUCTURED DATA MAY BE 
REMAPPED WITH A DUMMY GROUP IDENTIFIER. THE PURPOSE OF THIS 
CONSTRUCT IS TO ALLOW THE USER TO REMAP DATA ITEMS’ WITHOUT 
HAVING TO DECLARE ANOTHER GROUP ITEM WHICH DESCRIBES THE SAME 
AREA IN CORE. THUS IN THE FOLLOWING EXAMPLE: 


O01 A BIT(100), 
02 B BIT(e0), 
Oe C BIT(80O); 


"A" MIGHT BE REMAPPED AS 


O01 AA REMAPS A BIT(100), 01 DUMMY REMAPS A BIT(100), 
Oe BB BIT(30), OR O02 BB BIT(30), 
Oe CC BIT(70); Oe CC BIT(70); 


BOTH A AND AA IN THE ABOVE EXAMPLE REFER TO THE SAME AREA IN 
CORE. HENCE AA IS REDUNDANT. DURING RUNTIME, THE DESCRIPTOR FOR 
AA WILL ALSO BE ON THE STACK. 


IF "DUMMY" IS SUBSTITUTED FOR THE IDENTIFIER AA, NO DESCRIPTOR 
WILL BE GENERATED, HOWEVER BB AND CC WILL BOTH POINT TO A _ IN 
THE CORRECT FASHION. 


THE USER SHOULD NOTE THE DISTINCTION BETWEEN "DUMMY" AND 
"FILLER". "DUMMY" IS USED IN CONJUNCTION WITH "“REMAPS" TO © 
ELIMINATE THE NECESSITY OF DECLARING A REDUNDANT GROUP ITEM. 
"FILLER" IS USED IF ONE DESIRES TO SKIP OVER AN AREA OF CORE. 


THE FOLLOWING RESTRICTIONS APPLY TO THE USE OF "DUMMY REMAPS": 


ips "DUMMY" MAY ONLY BE USED WITH REMAP 
DECLARATIONS. 

a ALL THE RESTRICTIONS APPLYING TO "REMAPS" 
APPLY TO “DUMMY REMAPS". 

3. "DUMMY" MUST NOT REMAP ANOTHER "DUMMY", 

uy, "DUMMY" GROUP ITEMS MUST HAVE AT LEAST ONE 


NON-FILLER COMPONENT. 


DYNAMIC DECLARATIONS 


<DECLARE ELEMENT> ::= _../ DYNAMIC <SIMPLE IDENTIFIER 
| <DYNAMIC TYPE PART)/... 


<DYNAMIC TYPE PART) ::= BIT <DYNAMIC FIELD SIZED 
| / CHARACTER <DYNAMIC FIELD SIZE> 


<DYNAMIC FIELD SIZE> ::=  (KEXPRESSION>) 


THE DYNAMIC DECLARE STATEMENT ALLOWS THE USER TO DECLARE SIMPLE 
DATA WITH A NON-STATIC FIELD LENGTH. FOR EXAMPLE: 


PROCEDURE ABX; 
DECLARE DYNAMIC X BIT(A); 


WHERE "A" MAY BE OF VARIABLE LENGTH. THE VALUE OF THE 
<EXPRESSION> APPEARING IN THE <DYNAMIC FIELD SIZE> IS USED TO 
DETERMINE THE NUMBER OF BITS OR CHARACTERS IN THE DECLARED DATA 
ITEM. —— 


RESTRICTIONS: 


1. THE VARIABLES USED IN THE <DYNAMIC FIELD SIZE> 
MUST HAVE BEEN PREVIOUSLY INITIALIZED. 


2, DYNAMICS MAY NOT APPEAR ON LEXIC LEVEL 0. 


DYNAMIC VARIABLES MAY BE REMAPPED, HOWEVER A WARNING MESSAGE 
WILL APPEAR IN THE SOURCE LISTING. IT IS THE PROGRAMMER-S 
RESPONSIBILITY TO ENSURE THAT A DYNAMIC IS NOT REMAPPED LARGER 
THAN ALLOWED. se 
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PAGED ARRAY DECLARATIONS 


<DECLARE ELEMENT > 


.../ PAGED <ELEMENTS-PER-PAGE PART > 
<ARRAY IDENTIFIER> <ARRAY BOUND> 
<TYPE PART > 


<ELEMENTS-PER-PAGE 
PART> ::= (<NUMBER)> ) 


<ARRAY IDENTIFIER> <IDENTIFIER>D 
<ARRAY BOUND> : := (<NUMBER > ) 
<TYPE PART> ::= FIXED 
/ CHARACTER <FIELD SIZE> 
/ BIT <FIELD SIZE> 
<FIELD SIZE> ::= (<NUMBER > ) 
THE PAGED ARRAY DECLARATION ALLOWS THE USER TO SEGMENT ARRAYS. 


THE <ELEMENTS-PER-PAGE PART> SPECIFIES THE NUMBER OF ARRAY 
ELEMENTS CONTAINED IN EACH SEGMENT. FOR EXAMPLE: 


PAGED(64) A(4096) BIT(1); 


IS AN ARRAY OF 4096, 1-BIT ELEMENTS, SEGMENTED INTO 64, 
6B4-ELEMENT SEGMENTS. 


RESTRICTIONS: 


1. PAGED ARRAYS MAY NOT BE INDEXED. 
2. PAGED ARRAYS MAY NOT BE PART OF A STRUCTURE. 
3. PAGED ARRAYS MAY NOT BE REMAPPED. 
4, THE NUMBER OF ELEMENTS PER PAGE MUST BE A 


~ POWER OF 2, AND MAY NOT EXCEED 65535. 


FILE DECLARATIONS 


<FILE DECLARATION 
STATEMENT> ::= FILE <FILE DECLARE ELEMENT LIST> 


<FILE DECLARE 
ELEMENT LIST> ::= <FILE DECLARE ELEMENT > 
. / <FILE DECLARE ELEMENT>, 
<FILE DECLARE ELEMENT LIST> 


<FILE DECLARE ELEMENT> ::= <FILE IDENTIFITER><FILE ATTRIBUTE PART> 


<FILE IDENTIFIER> ::= <IDENTIFIERD 


<FILE ATTRIBUTE PART> <EMPTY> 


/ (<FILE ATTRIBUTE LIST>) 


<FILE ATTRIBUTE> 
/ <FILE ATTRIBUTED, 
<FILE ATTRIBUTE LIST> 


<FILE ATTRIBUTE LIST> 


<FILE ATTRIBUTE> ::= <LABEL PART> 

<DEVICE PART> 

<MODE PART> 

<BUFFERS PART> 

<VARIABLE RECORD PART> 
<LOCK PART> 

<SAVE FACTOR PART> 
<RECORD SPECIFICATION PART> 
<REEL NUMBER PART> 

<DISK FILE DESCRIPTION PART> 
<PACK-ID PART> 

<OPEN OPTION PART> 
<ALL.AREAS.AT.OPEN PART> 
<AREA.BY.CYLINDER PART> 
<EU. ASSIGNMENT PART> 
<MULTI.PACK PART> 

<USE. INPUT.BLOCKING PART> 
<SORTER STATION PART> 
<END.OF .PAGE PART> 
<REMOTE .KEY PART> 
<NUMBER.OF .STATIONS PART> 
<QUEUE.FAMILY.SIZE PART> 
<FILE TYPE PART> | 
<WORK FILE PART> 

<LABEL TYPE PART> 


~~ NNR RRR RRR RRR RR RRR SR RRS 


ALL ATTRIBUTES AF: OPTIONAL, AS THE ABOVE SYNTAX INDICATES. DEFAULT 
STATUS WILL AUTOMITICALLY BE SET FOR OMITTED ATTRIBUTES AS FOLLOWS. 


SYNTAX: 


FORMAT : 


DEFAULT: 


<LABEL PART> ::= 


<FILE IDENTIFICATION 
PART> ::= 


<MULTI-FILE 
IDENTIFICATIOND ::= 


<FILE IDENTIFICATION> ::= 
WHERE : 


<FILE IDENTIFIER>D IS 


<MULTI-FILE IDENTIFICATION> 
AND 
<FILE IDENTIFICATION> ARE 


LABEL = "NAME.1" / "NAME.e2" 
OR 
LABEL = "NAME.1" 


EXAMPLE : 


DECLARE INV.DATA.1 FILE 


(LABEL = "RCD.TAPE" / 


NOTE: 


THE SYSTEM WILL USE ONLY 
CHARACTERS OF THE 


LABEL = 
«FILE IDENTIFICATION PART> 


<MULTI-FILE IDENTIFICATION> 
<MULTI-FILE IDENTIFICATION> 
<SLASH> 

<FILE IDENTIFICATIOND 


<CHARACTER STRING> 


<CHARACTER STRING? 


A FILE OR PROGRAM IDENTIFIER 
BY WHICH THE PROGRAM IDENTIFIES 
THE FILE | 


NAME OR CONTENTS OF 
IDENTIFICATION FIELD ON FILE 
LABEL OR DISK DIRECTORY BY 
WHICH THE SYSTEM IDENTIFIES 
THE: FDbe 


IF LABEL (S) IS (ARE) NOT SPECIFIED, THE INTERNAL FILE 


NAME , 
IDENTIFICATIOND, 
IDENTIFICATION> IN THE FPB 


I.—£., <FILE IDENTIFIER>, 
AND BLANKS ARE 
(FILE PARAMETER BLOCK). 


ia ae «cre Uae Ie 
THE FIRST TEN 

"NAME". 
IS MOVED TO <MULTI-FILE 
MOVED TO <FILE 


SYNTAX: 


<DEVICE PART> ::= 


<DEVICE SPECIFIER> ::= 


6-le 


DEVICE = <DEVICE SPECIFIER> 


CARD 


/ TAPE 


MULTI .FUNCTION. CARD 


TAPE 
TAPE 
TAPE 
TAPE 
DISK 


DISK. 
DISK. 


27 
ce) 
SPE. 
».NRZ 


<ACCESS MODE > 
PACK <ACCESS MODE > 
FILE <ACCESS MODE > 


DISK.PACK.CENTURY <ACCESS MODE 
DISK.PACK.CAELUS <ACCESS MODE > 
CARD.READER 

CARD.PUNCH <DEVICE OPTION> 
MFCU 

PRINTER <DEVICE OPTION> 

PUNCH <DEVICE OPTION> 
PAPER. TAPE .PUNCH 

<DEVICE OPTION> 

PUNCH.96 <DEVICE OPTION> 
READER.PUNCH <DEVICE OPTION> 
READER.PUNCH.PRINTER 

<DEVICE OPT ION> 

PUNCH.PRINTER <DEVICE OPTION> 
READER.96- 

PAPER. TAPE.READER 
SORTER.READER 

READER.SORTER 

SPO 

CASSETTE 

REMOTE 

QUEUE 


~~ NR SRR RRR 


~~ 


<ACCESS MODE> ::= <EMPTY> / SERIAL / RANDOM 


<DEVICE OPTIOND> <EMPTY> 

/ <BACKUP OPTION> 

<SPECIAL FORMS OPTION> 

/ <SPECIAL FORMS OPTION> 
<BACKUP OPTION> 


“~ 


<BACKUP OPTIOND> <BACKUP SPECIF IER> 


/ OR <BACKUP SPECIFIER> 
<BACKUP SPECIFIER> ::= BACKUP / BACKUP TAPE 
/ BACKUP DISK 


<SPECIAL FORMS OPTION> ::= FORMS 


FORMAT: DEVICE = CARD 


CARD.READER 


* OK KK KK KR KK OK KK OK OK 


TAPE 


MULTI .FUNCTION. CARD 


TAPE .7 
TAPE .9 


TAPE .PE 


TAPE .NRZ 


DISK 


DISK .PACK 
DISK.FILE 


DISK.PACK. CENTURY 
DISK.PACK.CAELUS 


CARD .PUNCH 


PRINTER 
PRINTER FORMS 


PUNCH 
PUNCH 


PAPER. TAPE .PUNCH 
PAPER. TAPE .PUNCH FORMS 


FORMS 


PUNCH. 96 


PUNCH.96 FORMS 

READER .PUNCH 

READER.PUNCH FORMS 
READER.PUNCH.PRINTER 
READER.PUNCH.PRINTER FORMS 
PUNCH.PRINTER 
PUNCH.PRINTER FORMS 


READER .96 


PAPER. TAPE .READER 


SPO 
MFCU 


SORTER.READER 
READER.SORTER 


CASSETTE 


REMOTE 
QUE VE 


AMARKED 
AMARKED 
AMARKED 
AMARKED 
AMARKED 
&AMARKED 
*AMARKED 
AMARKED 
&*MARKED 
&MARKED 
AMARKED 
&MARKED 
AMARKED 
AMARKED 
AMARKED 


HARDWARE 
HARDWARE 
HARDWARE 
HARDWARE 
HARDWARE 
HARDWARE 
HARDWARE 
HARDWARE 
HARDWARE 
HARDWARE 
HARDWARE 
HARDWARE 
HARDWARE 
HARDWARE 
HARDWARE 


ONLY 
ONLY 
ONLY 
ONLY 
ONLY 
ONLY 
ONLY 
ONLY 
ONLY 
ONLY 
ONLY 
ONLY 
ONLY 
ONLY 
ONLY 


* MAY OR MAY NOT BE FOLLOWED BY ANY SINGLE OPTION BELOW: 


BACKUP 


BACKUP TAPE 
BACKUP DISK 
OR BACKUP 


OR BACKUP TAPE 
OR BACKUP DISK 


** MAY OR MAY NOT BE FOLLOWED BY ANY SINGLE OPTION BELOW: 


EXAMPLES: 


SERIAL 
RANDOM 


DEVICE 
DEVICE 
DEVICE 


TAPE 


PRINTER BACKUP 


PRINTER FORMS BACKUP TAPE 
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DEFAULT: IN THE ABSENCE OF ANY SPECIFICATION, TAPE WILL BE 
ASSUMED BY THE FPB. 


SYNTAX: <MODE PART> ::= MODE = <MODE SPECIFIER> 


<MODE SPECIFIER> ::= <FILE PARITY PART> 
/ <TRANSLATION PART> 

/ <FILE PARITY PART> 

<TRANSLATION PART> 


<FILE PARITY PART> ::= ODD / EVEN 

<TRANSLATION PART): := EBCDIC / ASCII / BCL / BINARY 
FORMAT: MODE = BCL OR — 

OR MODE = ASCII 

MODE = EVEN OR 

OR MODE = EVEN ASCII 

MODE = EVEN BCL 

OR 


DEFAULT: DEFAULT IS ODD OR EBCDIC, WHICHEVER IS APPLICABLE. 


SYNTAX: BUFFERS PART> ::=— BUFFERS = 
<NUMBER OF BUFFERS> 
<NUMBER OF BUFFERS> ::= <NUMBER > 
FORMAT : BUFFERS = NUMBER 


DEF AULT: IF NOT SPECIFIED, BUFFERS WILL BE SET TO 1 IN THE FPB. 


SYNTAX: <VARIABLE RECORD PART> ::= VARIABLE 
FORMAT: VARIABLE 


DEFAULT: NOT VARIABLE, I.E., FIXED-SIZE RECORDS. 


SYNTAX: 


FORMAT : 


DEFAULT: 


SYNTAX: 


FORMAT : 


DEFAULT: 


SYNTAX: 


FORMAT : 


CLOCK PART> ::= 
LOCK 


LOCK IS NOT SET. 


ii 


<SAVE FACTOR PART> 
<SAVE FACTOR> ::= 
SAVE = NUMBER (OF DAYS 


IF NOT SPECIFIED, THE 
IN THE FPB. | 


<RECORD SPECIFICATION 
PART 1:5 | 


<RECORD SIZE SPECIFIJER> 


<PHYSICAL RECORD SIZE> 
<LOGICAL RECORD SIZE> 


<LOGICAL RECORDS PER 
PHYSICAL RECORD> ::# 


RECORDS = NUMBER 
OR 


TO SAVE 


LOCK 


SAVE = <SAVE FACTOR> 
<NUMBER> 


FILE) 


SAVE SPECIFIER WILL BE SET TO 


RECORDS = NUMBER / NUMBER 


NOTE : 


<PHYSICAL RECORD SIZE> 
CHARACTERS PER BLOCK; 


RECORDS = <RECORD SIZE 
SPECIFIER> © 


<PHYSICAL RECORD SIZE> 
<LOGICAL RECORD SIZE> 
<SLASH> : 
<LOGICAL RECORDS PER 
PHYSICAL RECORD> 
«NUMBER > 


<NUMBER > 


<NUMBER > 


INDICATES THE NUMBER 
<LOGICAL RECORD SIZE>, 


NUMBER OF CHARACTERS PER RECORD. 


FXAMPLE: 


Hy 


RECORDS 1200 
OR 


RECORDS 


fi 


120 / 


10 


30 


OF 


THE 


DEFAULT: IN THE ABSENCE OF RECORD SPECIFICATIONS, UNBLOCKED 
RECORDS OF THE FOLLOWING LENGTHS WILL BE ASSUMED. 


ANY CARD OR PUNCH CONFIGURATION 80 BYTES 
ANY PRINTER CONFIGURATION 132 BYTES 
DISK. | 180 BYTES 
SPO | 72 BYTES 
ALL OTHERS 80 BYTES 
SYNTAX: (REEL NUMBER PART> ::= REEL = <REEL NUMBER> 
CREEL NUMBER> ::= <NUMBER> 
FORMAT: REEL = NUMBER OF REEL 


DEFAULT: THE FPB ASSUMES #1 IN THE ABSENCE OF ANY SPECIFICATION. 


SYNTAX: | <DISK FILE DESCRIPTION 


PART? ::= AREAS = <NUMBER OF AREAS> 
— <SLASH> | 
<PHYSICAL RECORDS PER AREA> 
<NUMBER OF AREAS> ::= <NUMBER > 
<PHYSICAL RECORDS 
PER AREA> ::= ; <NUMBER > 
FORMAT : AREAS = # OF AREAS / #OF BLOCKS PER AREA 


EXAMPLE: AREAS = 20 / 80 


NOTE: <PHYSICAL RECORDS PER AREA> INDICATES THE NUMBER 
OF BLOCKS PER AREA. THIS ATTRIBUTE IS APPLICABLE 
FOR DISK FILES ONLY. | 7 


DEFAULT: IF AREAS ARE NOT SPECIFIED, THE FPB WILL ASSUME 2&5 AREAS 
WITH 100 BLOCKS PER AREA. IF THE RECORD SPECIFICATIONS 
HAVE BEEN GIVEN, THE COMPILER WILL COMPUTE THE NUMBER OF 
RECORDS PER AREA. HOWEVER, IF RECORD SPECIFICATIONS ARE 
OMITTED, THE FPB WILL ASSUME 100 RECORDS PER AREA. IN 
EITHER CASE THEN, WHETHER AREAS ARE SPECIFIED OR NOT, 
THE COMPILER WILL HAVE COMPUTED THE ci OF RECORDS 
FOR INSERTION IN THE FPB. 


SYNTAX: 


FORMAT: 


DEFAULT: 


SYNTAX: 


FORMAT : 


NOTE : 


DEFAULT: 


<PACK.ID PART> ::= PACK.ID = 

<PACK IDENTIFICATION>D 
<PACK 
IDENTIFICATION>D ::= <CHARACTER STRING> 


PACK.ID = "NAME" 
EXAMPLE : PACK.ID = "TRANS.BAL" 


NOTE: THE SYSTEM WILL USE ONLY THE FIRST TEN CHARACTERS 
OF THE "NAME". 


IF ABSENT, <PACK IDENTIFICATION> WILL BE SET TO BLANKS 
IN THE FPB. 


<OPEN OPTION>::= © OPEN .OPTION= 
<OPEN OPTION ATTRIBUTE LIST> 


<OPEN OPTION i 
ATTRIBUTE LIST>::= <OPEN ATTRIBUTE> 
/ <OPEN ATTRIBUTE> <SLASH> 
<OPEN OPTION ATTRIBUTE LIST> 


<OPEN ATTRIBUTED ::= SEE "OPEN STATEMENT" 
OPEN.OPTION = ATTRIBUTE / ATTRIBUTE... 

EXAMPLE: OPEN.OPTION = OUTPUT/NEW 

WHILE THE ATTRIBUTES ARE THE SAME, THE <OPEN 
ATTRIBUTE>DS IN THE <OPEN STATEMENT> ARE 
SEPARATED BY COMMAS, AND THE <OPEN ATTRIBUTEDS 

IN THE <OPEN OPTION> ABOVE ARE SEPARATED BY 
SLASHES. 


IF ABSENT, THE <OPEN ATTRIBUTE>S WILL BE SET AS FOLLOWS: 


IF <DEVICE> IS <OPEN OPTION> IS 
CARD INPUT 

PRINTER OUTPUT 

PUNCH OUTPUT 


DISK INPUT 


SYNTAX: 


FUNCTION: 


DEFAULT: 


SYNTAX: 


FUNCTION: 


DEF AULT: 


SYNTAX: 


FUNCTION: 


DEFAULT: 


SYNTAX: 


FUNCTION: 


DEF AULT: 


<ALL.AREAS.AT.OPEN PART> ::= ALL.AREAS.AT.OPEN 


IF THIS OPTION IS SET, DISK SPACE FOR EACH AREA WILL BE 
ALLOCATED WHEN THE FILE IS OPENED. IF INSUFFICIENT SPACE 
IS AVAILABLE, A SPO MESSAGE WILL INDICATE THAT THERE IS 
NO USER DISK. 


AREAS ARE CREATED AS NEEDED. 


<AREA.BY.CYLINDER PART> ::= AREA.BY.CYLINDER 

IF THIS OPTION IS SPECIFIED, EACH AREA WILL BE PLACED AT 
THE BEGINNING OF A CYLINDER. IF THERE IS NO (MORE) SPACE 
AT THE BEGINNING OF ANY CYLINDER, A SPO MESSAGE WILL 
INDICATE THAT THERE IS NO USER DISK. 


AREAS ARE PLACED ANYWHERE ON DISK. 


EU.SPECIAL = <NUMBER> 
/ EU.INCREMENTED = <NUMBER> 


<EU ASSIGNMENT PART> ::= 


THE <NUMBER> SPECIFIES ANY INTEGER OQ THROUGH 15. 
"EU.SPECIAL" IS APPLICABLE ONLY WITH HEAD PER TRACK 
DISKS AND SYSTEMS DISK PACKS, AND SPECIFIES THE DRIVE ON 
WHICH THE FILE IS TO GO. "EU. INCREMENTED" SPECIFIES THE 
DISK DRIVE ON WHICH THE FIRST AREA OF A FILE IS TO GO. 
EACH SUBSEQUENT AREA IS PLACED ON THE NEXT DRIVE. IF, 
WITH EITHER OPTION, THE NECESSARY E. me IS NOT AVAILABLE, 
E.U. QO WILL BE TAKEN. oe 


SPACE FOR FILES AND AREAS IS ALLOCATED ANYWHERE ON DISK. 


<MULTI_ PACK PART>: := MULTI . PACK 


IF THIS OPTION IS SPECIFIED, THE ENTIRE FILE MAY BE PUT 
ONTO SEVERAL DISK PACKS. 


THE FILE WILL BE PLACED ON ONE DISK PACK. 


SYNTAX: 


FUNCTION: 


DEFAULT: 


SYNTAX: 


FUNCTION: 


DEFAULT: 


SYNTAX: 


FUNCTION: 


DEFAULT: 


<USE . INPUT. BLOCKING | | 
PART> ::= USE . INPUT. BLOCKING. 


THIS OPTION IS ONLY APPLICABLE WITH INPUT DISK FILES. IF 
SPECIFIED, THE RECORD AND BLOCK SIZE SPECIFICATIONS WILL 
BE TAKEN FROM THE DISK FILE HEADER AND THE USER-S 
SPECIFICATIONS WILL BE IGNORED. 


THE FILE ATTRIBUTES ARE AS STATED IN THE FILE 
DECLARATION. THOSE OPTIONS OMITTED ARE SET TO THEIR 
DEFAULT STATUSES. | a 


<SORTER STATION PART>D ::= SR.STATION = <NUMBERD> 


THE NUMBER INDICATES WHICH READ STATION(S) ISCARE) TO BE 
USED ON A SORTER-READER FILE. THE POSSIBLE STATIONS ARE 
THE MAGNETIC INK CHARACTER READER AND THE OPTICAL 
CHARACTER READER. THE READ STATIONS ARE INTERCHANGEABLE , 
THUS THE SYSTEM DOCUMENTATION SHOULD BE CONSULTED FOR 
SPECIFIC HARDWARE CONFIGURATIONS. THE VALUES ALLOWED ARE 
AS FOLLOWS: | | 


1= FIRST STATION 
2= SECOND STATION 
3= BOTH STATIONS 


SR.STATION = 0 


<END.OF .PAGE PART> ::= END.OF .PAGE.ACTION 


THIS ATTRIBUTE WILL CAUSE THE <EOF PART> OF A  <WRITE 
STATEMENT> TO BE EXECUTED AT THE END OF A PAGE ON A 
PRINTER FILE. REFER TO "WRITE STATEMENT" FOR DETAILS. 


NO AUTOMATIC PAGING ACTION 


SYNTAX: 


FUNCTION: 


DEF AULT: 


SYNTAX: 


FUNCTION: 


DEFAULT: 


SYNTAX: 


FUNCTION: 


DEFAULT: 


SYNTAX: 


FUNCTION: 


DEF AULT: 
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<REMOTE.KEY PART>::= REMOTE. KEY 


THIS ATTRIBUTE IS USED ONLY WITH FILES OF TYPE "REMOTE". 
WHEN PRESENT, IT INDICATES THAT A KEY MAY BE PRESENT ON 
A READ OR WRITE TO THAT FILE. IF MISSING, THEN NO KEY 
CAN BE USED. THE FORMAT OF THE KEY IS GIVEN BELOW. EACH 
FIELD OF THE KEY IS IN DECIMAL CHARACTERS. THE KEY IS A 
TOTAL OF 10 CHARACTERS FORMATTED AS FOLLOWS: 


STATION NUMBER | : 3 CHARACTERS 
MESSAGE LENGTH (BYTE COUNT) ==> ~~ ~—-4 CHARACTERS 


MESSAGE TYPE (MUST BE "000") | 3 CHARACTERS 


NO REMOTE KEY 


<NUMBER.OF .STATIONS PART>:= | NUMBER.OF.STATIONS = <NUMBERD 
THIS ATTRIBUTE IS USED ONLY WITH FILES OF TYPE "REMOTE". 
WHEN PRESENT, IT SPECIFIES THE MAXIMUM NUMBER OF 
STATIONS THAT CAN BE ATTACHED TO THIS FILE. 


NUMBER. OF .STATIONS=1 


(QUEUE .FAMILY.SIZE PART>::= QUEUE. FAMILY. SIZE=<NUMBER> 


THIS ATTRIBUTE IS USED ONLY WITH FILES OF TYPE "QUEUE". 
IT SPECIFIES THE NUMBER OF MEMBERS IN A QUEUE FAMILY. 


QUEVE .FAMILY.SIZE=1] 


<FILE TYPE PART):: FILE. TYPE=<FILE TYPE SPECIFIER> 
<FILE TYPE SPECIFIER>::= DATA/ INTERPRETER/CODE/ INTRINSIC 
THIS ATTRIBUTE ALLOWS SDL PROGRAMS TO SPECIFY THE TYPE 
OF THE FILES THEY ARE CREATING. IN PARTICULAR, THE 
COMPILERS WILL USE THE TYPE "CODE" FOR THEIR CODEFILES. 


FILE TYPE PART=DATA 


SYNTAX: 


FUNCTION: 


DEF AULT: 


SYNTAX: 


FUNCTION: 


DEFAULT: 
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<WORK FILE PART>::= WORK .F ILE 


THIS ATTRIBUTE CAUSES THE JOB NUMBER TO BE INCRE AS 
PART OF THE FILE IDENTIFIER. 


NOT A WORK FILE 


<LABEL TYPE PART): := LABEL.TYPE=<LABEL TYPE SPECIFIERD> 


LABEL TYPE SPECIFIERD::= UNLABELED 


THIS ATTRIBUTE ALLOWS THE LABEL TYPE TO BE SPECIFIED. 
CURRENTLY, "UNLABELED" IS THE ONLY TYPE. 


BURROUGHS STANDARD LABEL 
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SWITCH FILE DECLARATIONS 


<SWITCH FILE | : 
DECLARATION STATEMENT): := SWITCH.FILE <SWITCH FILE 
DECLARE ELEMENT LIST> | 


<SWITCH FILE | 
DECLARE ELEMENT LIST>::= <SWITCH FILE DECLARE ELEMENT > 
/ <SWITCH FILE DECLARE ELEMENT>, 
<SWITCH FILE DECLARE ELEMENT LIST> 


<SWITCH FILE 
DECLARE ELEMENT> ::= <SWITCH FILE IDENTIFIER> (<FILE 
| IDENTIFIER LIST>) 


<SWITCH FILE IDENTIFIER>::= <IDENTIFIERD 


<FILE IDENTIFIER LIST>::= <FILE IDENTIFIERD 
/ <FILE IDENTIFIER>D, <FILE IENTIFIER LIST> 


A SWITCH FILE DECLARATION SPECIFIES THE ELEMENTS OF A "CASE", 
THESE ELEMENTS BEING FILES. A SUBSCRIPTED <SWITCH FILE 
IDENTIFIER> MAY BE USED ANYWHERE THAT A <FILE IDENTIFIER> MAY 
BE USED. IF THERE ARE N FILES IN THE <FILE IDENTIFIER LIST>, 
THEN THE SUBSCRIPT MUST RANGE FROM O TO N-1. THE VALUE OF THE 
SUBSCRIPT SELECTS ONE OF THE N FILES IN THE LIST, DEPENDING 
UPON ORDINAL POSITION (THE FILES IN THE <FILE IDENTIFIER LIST> 

ARE NUMBERED FROM LEFT TO RIGHT, BEGINING WITH O). IF ALL FILES 
IN THE <FILE IDENTIFIER LIST> ARE OF TYPE "REMOTE", THEN THE 
SWITCH FILE IDENTIFIER IS OF TYPE "REMOTE". 


THE FOLLOWING EXAMPLE COPIES CARD IMAGES FROM CARDS, TAPE, OR 
DISK TO CARDS, PRINTER, TAPE, OR DISK: 


FILE 
CARDS (DEVICE=CARD) : 
» TAPE] (DEVICE=TAPE ,USE. INPUT .BLOCKING 
»DISKI (DEVICE=DISK,USE. INPUT .BLOCKING) 


FILE 
PUNCH (DEV 1CE=PUNCH) 
»LINE (DEVICE=PRINTER) 
» TAPEO(DEVICE=TAPE , RECORDS=80/+4) 
»DISKO(DEVICE=DISK ,RECORDS=80/9) 


SWITCH.FILE 
INPUT (CARDS, TAPE! ,DISKI) 
, OUTPUT (PUNCH,LINE , TAPEO,DISKO) 
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DECLARE 
INPUT.TYPE BIT (24) 
,OUTPUT.TYPE BIT (24) 
,BUFFER CHARACTER(80) 


DISPLAY "#*##** [NPUT TYPE"; 
ACCEPT INPUT.TYPE; | | 
INPUT. TYPE «- BINARY (SUBSTR( INPUT. TYPE,0,1)) MOD 3; 
DISPLAY "*#*#*# OUTPUT TYPE"; 
ACCEPT OUTPUT.TYPE; | 
CUTPUT . TYPE. BINARY (SUBSTR (OUTPUT. TYPE,0,1)) MOD 4; 
OPEN INPUTCINPUT.TYPE) INPUT; 
OPEN OUTPUT (OUTPUT. TYPE) OUTPUT/NEW; 
DO FOREVER; 

READ INPUT(INPUT.TYPE) (BUFFER) ; 

ON EOF UNDO; 

WRITE OUTPUT(OUTPUT.TYPE) (BUFFER) ; 
END; 
CLOSE OUTPUT (OUTPUT.TYPE) WITH LOCK; 
STOP; 
FINI 


DEFINE STATEMENT 


<DECLARATION STATEMENT> ::= .../<DEFINE STATEMENT);/... 


<DEF INE STATEMENT) ::= DEFINE <DEFINE ELEMENT > 
/ <DEFINE STATEMENT>, 
<DEF INE ELEMENT> 


<DEF INE ELEMENT> ::= <DEF INE IDENTIFTIER>D 
<FORMAL PARAMETER PART > 
AS <DEFINE STRING> 


DEFINE IDENTIFIER> 


<IDENTIF IER>D 


<FORMAL PARAMETER PART> ::= (<FORMAL PARAMETER LIST>) 
/ [<FORMAL PARAMETER LIST>] 
/ <EMPTY> 

<FORMAL PARAMETER LIST> ::= <FORMAL PARAMETER> 


/ <FORMAL PARAMETER>, 
<FORMAL PARAMETER LIST> 


<FORMAL PARAMETER>D ::= <IDENTIFIER> 
<DEFINE STRING> ::= #<WELL-FORMED CONSTRUCT># 
<WELL-FORMED CONSTRUCT> ::= <EMPTY> 


/ <BASIC COMPONENT > 
<WELL-FORMED CONSTRUCT > 


<BASIC COMPONENT> ::= <RESERVED WORD> ASEE APPENDIX 


<IDENTIFIERD 
<SPECIAL CHARACTER> 
<COMMENT STRING) 
<CONSTANT> 


~~ NOS 


THE <DEFINE STATEMENT> ASSIGNS THE TEXT ENCLOSED BETWEEN THE "#" 
SIGNS FOLLOWING THE RESERVED WORD "AS" TO THE <DEF INE 
IDENTIFIER>. INVOCATION OF THE <DEFINE IDENTIFIER> CAUSES THE 
TEXT TO REPLACE THE IDENTIFIER, THEREBY PROVIDING A FORM OF 
SHORTHAND CODE. 


AT DECLARATION TIME, THE COMPILER IS UNCONCERNED WITH THE 
CONTENTS OF THE <DEFINE STRING>. HOWEVER, WHEN THE <DEFINE 
IDENTIFIER> IS INVOKED, THE <WELL-FORMED CONSTRUCT> MUST 
CONFORM TO THE SYNTACTICAL REQUIREMENTS OF THE STATEMENT 
CONTAINING THE IDENTIFIER. 


ae 


THERE ARE TWO TYPES OF <DEFINE STATEMENT>S: SIMPLE AND 
PARAMETRIC, WHERE THE PARAMETERS ARE ENCLOSED IN PARENTHESES 
FOLLOWING THE <DEFINE IDENTIFIER>. BELOW ARE EXAMPLES OF BOTH 
TYPES: | 7 


DEFINE A AS #IF X>10 THEN PROCX#, 
CH AS #CHARACTER#, 
BCY,Z) AS #IF Y<Z THEN Y:=Z #, 
C(M) AS # X:=M; A #; 


NOTICE THAT <DEFINE STATEMENT>S MAY BE FACTORED, WITH COMMAS 
SEPARATING EACH ELEMENT. | 


THE <DEFINE IDENTIFIER> HAS SCOPE IN THE SAME MANNER AS ANY 
OTHER IDENTIFIER (EXCEPT FOR SEGMENT AND DO-GROUP IDENTIFIERS). 


RESTRICTIONS ON THE USE OF DEFINES: 


1. RESERVED WORDS MAY NOT BE USED AS <DEFINE 
IDENTIFIER>S, HOWEVER, AN IDENTIFIER MAY 
DEFINE A RESERVED WORD. 


rae "SPECIAL" WORDS MAY. BE USED AS <DEF INE 
IDENTIFIERS, HOWEVER, THE TR SPECIAL 
SIGNIFICANCE IS LOST WITHIN THE THE SCOPE OF 
THAT <DEF INE STATEMENT>. 


3. <DEF INE INVOCATION>S MAY APPEAR WITHIN A 
<WELL-FORMED CONSTRUCT>, I.E., A <DEF INE 
IDENTIFIER> MAY APPEAR WITHIN ANOTHER <DEF INE 
ELEMENT>. <DEFINE IDENTIFIER>S MAY BE NESTED 
NO MORE THAN le LEVELS DEEP. 


4, THE IDENTIFIERS LISTED BELOW ARE NEVER LOOKED 
UP IN THE LIST OF DEFINE NAMES. 


DECLARE , DEFINE, PROCEDURE , AND FORMAL 
IDENTIFIERS, 


SEGMENT AND DO-GROUP IDENTIFIERS, 
FILE, OPEN, AND CLOSE ATTRIBUTES, 


<FILE ATTRIBUTE STATEMENT> ATTRIBUTE NAMES 


"ON" CONDITION NAMES (EOF , EXCEPTION, 
FILE.MISSING, Q.FULL, Q.EMPTY, NO. INPUT. 
FILE.LOCKED). 


"ACCEPT"/"DISPLAY" SPECIFIERS: END.OF.TEXT AND 
CRUNCHED. 


IF ONE OF THESE IDENTIFIERS HAPPENS TO BE THE 
SAME AS A <DEFINE IDENTIFIER>, NO SUBSTITUTION 
OCCURS. THE <WELL-FORMED CONSTRUCT> OF THE 
DEFINE WILL NOT REPLACE THE IDENTIFIER. NOTE, 
HOWEVER, THAT DUPLICATE IDENTIFIERS MAY NOT 
APPEAR WITHIN THE SAME LEXIC LEVEL; AN ERROR 
MESSAGE RESULTS. 


Ds THERE MAY BE NO MORE THAN 8 <FORMAL 
PARAMETER>S IN A <FORMAL PARAMETER LIST>. 


6. REFER TO APPENDIX VI FOR RULES CONCERNING 
CONDITIONAL INCLUSION CARDS WITHIN DEFINES. 


THE FOLLOWING SYNTAX ILLUSTRATES THE FORMAT USED IN’ THE 
INVOCATION OF A <DEFINE IDENTIFIERD: 


<DEF INE INVOCATIOND ::= <SIMPLE DEFINE IDENTIFIERD 
/ <PARAMETRIC DEFINE IDENTIFIERD 
(<DEF INE ACTUAL PARAMETER LIST>) 
/ <PARAMETRIC DEFINE IDENTIFIER> 
C<DEF INE ACTUAL PARAMETER LIST>] 


<SIMPLE DEFINE 


IDENTIFIER> ::= <DEF INE IDENTIFIERD 
<PARAMETRIC 
DEFINE IDENTIFIER> ::= <DEF INE IDENTIFIER> 


<DEF INE ACTUAL 
PARAMETER LIST> ::= <DEF INE ACTUAL PARAMETER> 
/ <DEFINE ACTUAL PARAMETER? , 
<DEF INE ACTUAL PARAMETER LIST> 


<DEF INE ACTUAL 
PARAMETER> ::= <WELL-FORMED CONSTRUCT > 


A <DEFINE INVOCATION> MAY OCCUR ANYWHERE WITHIN AN SDL PROGRAM 
EXCEPT IN THE CASES LISTED ABOVE IN RESTRICTION 4. AS INDICATED 
BY THE ABOVE BNF, THE ACTUAL PARAMETERS OF A DEFINE ARE NOT 
CONFINED TO CONSTANTS AND VARIABLES BUT MAY HAVE A WIDE RANGE 
OF CONSTRUCTS. FOR EXAMPLE, THE <DEFINE STATEMENT> MENTIONED 
ABOVE : 


DEFINE C(M) AS# X:=M; A #: 
MIGHT BE INVOKED AS FOLLOWS: 
C(Z;BUMP I[R,S]); 


WHICH EXPANDS TO: 
X:=Z; BUMP IfR,S]; IF X>10 THEN PROCX; 


THE FOLLOWING RESTRICTIONS APPLY TO THE USE OF THE <DEFINE 
INVOCATION>: | | 


13 


NO UNPAIRED BRACKETING SYMBOLS, I.E., () OR 
[1], MAY APPEAR. 


WITHIN A <DEFINE ACTUAL. PARAMETER LIST>, 
COMMAS NOT ENCLOSED WITHIN PAIRED BRACKETING 
SYMBOLS ACT TO DELIMIT THE <DEFINE ACTUAL 
PARAMETERD>S. THEREFORE | AT <WELL-FORMED 
CONSTRUCT> NOT ENCLOSED IN BRACKETING SYMBOLS 
MAY NOT CONTAIN COMMAS. FOR EXAMPLE: 


DEFINE X(A,B) AS # A(B) #; 
AND INVOKED AS: | 
Z:=X(M,Q,R,9S) ; 
WOULD RESULT IN THE ERROR MESSAGE: 

DEFINE INVOCATION HAS TOO MANY PARAMETERS 
PROPER INVOCATION IS POSSIBLE BY REMOVING THE 
PARENS FROM THE DEFINE AND PLACING THEM IN THE 
INVOCATION: 


DEFINE X(A,B) AS # AB #; 
Z:=X(M,(Q,R,S)); 


COMMENTS ARE ALLOWED BUT WILL BE DELETED FROM 
THE ACTUAL PARAMETER TEXT. 


FORWARD DECLARATION 


<DECLARATION STATEMENT > 


<FORWARD DECLARATION> 


<COMPOUND PROCEDURE 
HEAD> ::= 


<PROCEDURE HEAD> ::= 
<BASIC PROCEDURE HEAD> 


<PROCEDURE NAME> ::= 
<PROCEDURE IDENTIFIER> 
<TYPED PROCEDURE 
IDENTIFIERD ::= 


<NON-TYPED PROCEDURE 
IDENTIFIER> ::= 


<FORMAL PARAMETER PART > 


<FORMAL PARAMETER LIST> 


<FORMAL PARAMETER>D ::= 


<PROCEDURE TYPE PART > 


<FORMAL TYPE PART> 


<TYPE PART> ::= 


<TYPE VARYING PART> 


»../<FORWARD DECLARATION>/... 
FORWARD <COMPOUND PROCEDURE HEAD> 
<PROCEDURE HEAD> 

<FORMAL PARAMETER DECLARATION 
STATEMENT LIST> 


<BASIC PROCEDURE HEAD> 
<PROCEDURE TYPE PART>; 


<PROCEDURE NAME > 
<FORMAL PARAMETER PART > 


PROCEDURE <PROCEDURE IDENTIFIER> 
<TYPED PROCEDURE IDENTIFIER> 
<NON-TYPED PROCEDURE IDENTIFIER> 


<IDENTIFITERD 


<IDENTIFIER>D 


<EMPTY> 
(<FORMAL PARAMETER LIST>) 


<FORMAL PARAMETER> 
<FORMAL PARAMETERD, 
<FORMAL PARAMETER LIST> 


<IDENTIFIER>D 


<EMPTY> 
<FORMAL TYPE PART> 


<TYPE PART > 
<TYPE VARYING PART > 


FIXED 
CHARACTER <FIELD SIZE> 
BIT <FIELD SIZE> 


VARYING 
BIT VARYING 
CHARACTER VARYING 


<FORMAL PARAMETER DECLA- 
RATION STATEMENT LIST> 


<EMPTY> 

/ <FORMAL PARAMETER DECLARATION STATEMENT >; 
<FORMAL PARAMETER DECLARATION 
STATEMENT LIST> 


<FORMAL PARAMETER 
DECLARATION STATEMENT > 


FORMAL <FORMAL ELEMENT > 

/ FORMAL.VALUE <FORMAL ELEMENT> | 

/ <FORMAL PARAMETER DECLARATION STATEMENT>, 
<FORMAL ELEMENT > 


<FORMAL ELEMENT> ::= (<FORMAL IDENTIFIER LIST>) 
| <FORMAL TYPE PART> 
/ <FORMAL IDENTIFIER> 
<FORMAL TYPE PART > 


<FORMAL INDENTIFIER 
LIST> ::= <FORMAL IDENTIFIER> 
/ <FORMAL IDENTIFIER LIST>, 
<FORMAL IDENTIFIER> 


<FORMAL IDENTIFIER> ::= <COMPLEX IDENTIFIER> 
/ <VARYING ARRAY SPECIFIER> 


<COMPLEX IDENTIFIER> ::= <SIMPLE IDENTIFIER> 
/ SARRAY IDENTIFIERD 
<ARRAY BOUND > 


<VARYING ARRAY 
SPECIFIER> ::= —  SARRAY IDENTIFIER> 
<VARYING ARRAY BOUND> 


<VARYING ARRAY BOUND? ::= (*) 


BEFORE A PROCEDURE MAY BE CALLED, SDL SPECIFIES THAT IT MUST 
HAVE BEEN PREVIOUSLY DECLARED. A CONTRADICTION ARISES WHEN ONE 
PROCEDURE CALLS ANOTHER PROCEDURE WHICH IN TURN REFERENCES THE 
FIRST. IN THIS CASE, WHICHEVER PROCEDURE APPEARS FIRST MUST 
NECESSARILY CONTAIN AT LEAST ONE REFERENCE TO THE SECOND WHICH 
HAS NOT YET BEEN DECLARED. | 


THE <FORWARD DECLARATION> ALLOWS THE PROGRAMMER TO USE RECURSIVE 
REFERENCES BY PROVIDING A TEMPORARY PROCEDURE DECLARATION. THE 

<FORWARD DECLARATION>, HOWEVER, DOES NOT ELIMINATE THE NEED FOR 

THE NORMAL PROCEDURE DECLARATION WHICH MUST FOLLOW IN THE 

PROGRAM AND MUST HAVE THE SAME SCOPE. 


THE PARAMETERS MENTIONED IN THE <FORWARD DECLARATION> MUST BE 
THE SAME FORMAL PARAMETERS CIN TYPE AND SIZE, BUT NOT IN NAME) 


THAT THE PROCEDURE ITSELF WILL DECLARE. 


PROCEDURES MAY BE EITHER TYPED OR NON-TYPED DEPENDING ON THEIR 
USE. FORMAL DATA TYPES MAY EITHER BE STATIC OR VARYING, AGAIN 
DEPENDING ON THE PROGRAM. THESE SPECIFICATIONS WILL BE 
DISCUSSED IN THE SECTION ENTITLED "THE PROCEDURE STATEMENT". 


THE FOLLOWING EXAMPLES ILLUSTRATE THE USE OF THE <FORWARD 
DECLARATION>: 


FORWARD PROCEDURE X CHARACTER VARYING; 
FORWARD PROCEDURE J(K,L,M); 
FORMAL K(*) BIT VARYING, 
FORMAL L(15) CHARACTER (8), 
FORMAL M FIXED; 


USE STATEMENT 


<USE STATEMENT> ::= , USE (<SIMPLE IDENTIFIER LIST>) 
OF <DEFINE IDENTIFIER> 


<SIMPLE IDENTIFIE 
Elsi? 23= | <SIMPLE IDENTIFIERD 
/ <SIMPLE IDENTIFIERD, 
<SIMPLE IDENTIFIER LIST> 


<SIMPLE IDENTIFIERD :: <IDENTIFIER> 


<DEF INE IDENTIFIER> <IDENTIFIER>D 


THE PURPOSE OF THE <USE STATEMENT> IS TO ALLOW THE PROGRAMMER TO 
DECLARE SPECIFIC ELEMENTS IN A DEFINED STRUCTURE WITHIN A 

PROCEDURE . BY SPECIFYING ONLY THE DESIRED ELEMENTS, THE NAME 

STACK SIZE 1S KEPT TO A MINIMUM, AND PROGRAM MAINTENANCE IS 

SIMPLIFIED. THE COMPILER WILL GENERATE THE STRUCTURE USING 

FILLERS AND THE SPECIFIED ELEMENTS. 


THE FOLLOWING RESTRICTIONS APPLY TO THE <USE STATEMENT>: 


be IT MUST APPEAR WITHIN A PROCEDURE (1.E., ON A 
LEXIC LEVEL GREATER THAN 0). 

a. ‘THE REFERENCED <DEFINE IDENTIFIER> MUST DEFINE 
ONE STRUCTURED DECLARE STATEMENT. | 

3: THE STRUCTURE MAY NOT CONTAIN ARRAYS. 

re THE OUTERMOST LEVEL OF THE STRUCTURE (01) MUST. 


BE A "DUMMY REMAPS". 


EXAMPLE: 


DEFINE X AS # 
DECLARE 01 DUMMY REMAPS A, % MIGHT ALSO REMAP BASE 
Oe B BIT(5), 
03 Bl BIT(e), 
03 Be BIT(3), 
Oe C CHARACTER(10), 
Oe D BIT(1), 
Oe E FIXED, 
Oe F BIT (24) 4; 
PROCEDURE FIRST; 
USE (C,D) OF X; 


FROM THE ABOVE <USE STATEMENT> THE COMPILER WILL GENERATE THE 
FOLLOWING STRUCTURE : 


O1 DUMMY REMAPS A, 
02 FILLER BIT(5), 
O03 FILLER BIT(e), 
O35 FILLER BIT(3), 
02 C CHARACTER( 10), 
Oe OD BIT(1), 
O02 FILLER FIXED, 
02 ‘FILLER BIT (24) ; 


NOTE THAT FILLER WAS SUBSTITUTED FOR THE GROUP ITEM 8B. THIS 
WOULD NORMALLY GENERATE A SYNTAX ERROR, AND IS ALLOWABLE ONLY 
IN THE <USE STATEMENT>. 


PROCEDURE STATEMENT 


<PROCEDURE STATEMENT 
LIST> <:> <EMPTY> 
/ <PROCEDURE STATEMENT >; 
<PROCEDURE STATEMENT LIST> 


<PROCEDURE STATEMENT> ::= <PROCEDURE DEF INITION> 
/ <SEGMENT STATEMENT > 
<PROCEDURE STATEMENT > 


<PROCEDURE DEFINITIOND ::= <COMPOUND PROCEDURE HEAD> 
<PROCEDURE BODY > 

<SEGMENT STATEMENT > SEE "THE SEGMENT STATEMENT" 

<PROCEDURE BODY> ::= <DECLARATION STATEMENT LIST> 


<PROCEDURE STATEMENT LIST> 
<PROCEDURE EXECUTABLE STATEMENT LIST> 
<PROCEDURE ENDING> 


PROCEDURES ARE SELF-CONTAINED FUNCTIONAL UNITS WITHIN AN- SDL 
PROGRAM WHICH MAY BE ACCESSED ACCORDING TO SPECIFIC RULES 
DISCUSSED UNDER "BASIC STRUCTURE OF THE SDL PROGRAM". 
PROCEDURES MAY BE CREATED BY PRECEDING SELF-CONTAINED 
STATEMENTS WITH A <COMPOUND PROCEDURE HEAD>, AND TERMINATING IT 
WITH A <PROCEDURE ENDING). 


THE <PROCEDURE DEFINITION> IS COMPOSED OF THREE BASIC PARTS: THE 
HEADING, BODY, AND ENDING. IDENTIFIERS DECLARED IN A PROCEDURE 

MAY BE ACCESSED ONLY IN THE PROCEDURE IN WHICH THEY ARE 

DECLARED, AND IN PROCEDURES NESTED WITHIN THE DECLARING 

PROCEDURE . 


PROCEDURES MAY BE EITHER "TYPED" OR "NON-TYPED". A "TYPED" 
PROCEDURE RETURNS SOME VALUE OF THE TYPE SPECIFIED IN THE 
PROCEDURE DECLARATION TO THE EXPRESSION WHERE THE PROCEDURE WAS 
INVOKED. SEE "VALUE VARIABLES" FOR DETAILS. A’ "NON-TYPED" 
PROCEDURE PERFORMS A FUNCTION, DOES NOT RETURN A VALUE, AND IS 
INVOKED IN AN <EXECUTE PROCEDURE STATEMENT>. SEE "EXECUTE 
PROCEDURE STATEMENT". 


THE SYNTAX FOR THE PROCEDURE HEADING IS: 


<COMPOUND PROCEDURE | 
HEAD> ::= <PROCEDURE HEAD> 


<PROCEDURE HEAD> ::= 
<BASIC PROCEDURE HEAD> 
<PROCEDURE NOM? 35 
<PROCEDURE IDENTIFIER> 
<TYPED PROCEDURE | 


IDENTIFIER>D ::= 


<NON-TYPED PROCEDURE | 
-IDENTIFIERD ::= 


<INTRINSIC IDENTIFIERD:= 


<TYPED INTRINSIC 
IDENTIFIER>: := 


<NON-TYPED INTRINSIC 
IDENTIFIER>D: := 

<FORMAL PARAMETER PART > 
<FORMAL PARAMETER LIST> 
<FORMAL PARAMETER> ::= 
<PROCEDURE TYPE PART> 


<FORMAL TYPE PART> ::= 


<TYPE PART) ::= 


<TYPE VARYING PART> ::= 


<FORMAL PARAMETER DECLA- 


S=e 
<FORMAL PARAMETER DECLARATION 
STATEMENT LIST> 


<BASIC PROCEDURE HEAD> 
<PROCEDURE TYPE PART>; 


<PROCEDURE NAME) 
<FORMAL PARAMETER PART> 


PROCEDURE <PROCEDURE IDENTIFIER> 
INTRINSIC <INTRINSIC IDENTIFIER> 


<TYPED PROCEDURE IDENTIFIERD> 


<NON-TYPED PROCEDURE IDENTIFIER> 
<IDENTIFIER>D 


<IDENTIFIERD 
<TYPED INTRINSIC IDENTIFIER>D 
<NON-TYPED INTRINSIC IDENTIFIERD 


<IDENTIFIERD 


<IDENTIFITER> 


<EMPTY> 
(<FORMAL PARAMETER LIST>) 


<FORMAL PARAMETER? 
<FORMAL PARAMETER>, 
<FORMAL PARAMETER LIST> 


<IDENTIFITER> 


<EMPTY> 
<FORMAL TYPE PART > 


<TYPE PART> | 
<TYPE VARYING PART> 


FIXED 
CHARACTER <FIELD SIZE> 
BIT <FIELD SIZE> 


VARYING 
BIT VARYING 
CHARACTER VARYING 


RATION STATEMENT LIST> ::= <EMPTY> 
/ <FORMAL PARAMETER DECLARATION STATEMENT) ; 
<FORMAL PARAMETER DECLARATION 

STATEMENT LIST> 


<FORMAL PARAMETER 
DECLARATION STATEMENT> ::= FORMAL <FORMAL ELEMENT > 
/ FORMAL.VALUE <FORMAL ELEMENT > 
/ <FORMAL PARAMETER DECLARATION STATEMENT>, 
<FORMAL ELEMENT > 


<FORMAL ELEMENT> ::= (<FORMAL IDENTIFIER LIST>) 
<FORMAL TYPE PART> 
/ <FORMAL IDENTIFIER>D 
<FORMAL TYPE PART > 


<FORMAL INDENTIFIER 7 
LIST> ::= <FORMAL IDENTIFIERD 
/ <FORMAL IDENTIFIER LIST>D, 
<FORMAL IDENTIFIER> 


<FORMAL IDENTIFIER> ::= <COMPLEX IDENTIFIERD 
/ <VARYING ARRAY SPECIFIER> 


<COMPLEX IDENTIFIER> ::= <SIMPLE IDENTIFIER> 
/ <ARRAY IDENTIFIERD 
<ARRAY BOUND > . 


<VARYING ARRAY 
SPECIFIER>D ::= <ARRAY IDENTIFIER> 
<VARYING ARRAY BOUND> 


<VARYING ARRAY BOUND> ::= (*) 


THE PROCEDURE HEADING, I.E., <COMPOUND PROCEDURE HEAD>, CONTAINS 
THE <PROCEDURE NAME>, FORMAL PARAMETERS (CIF ANY), AND THE 
<PROCEDURE TYPE PART>, I.E., THE FIELD TYPE OF THE VALUE TO BE 
RETURNED IF THE PROCEDURE IS "TYPED". FOR EXAMPLE: 


PROCEDURE X (M,N) FIXED; 
FORMAL (M,N) VARYING; 


WHICH CORRESPONDS TO THE POLSON ING SYNTAX: 


PROCEDURE <TYPED PROCEDURE IDENTIFIERD 
(<FORMAL PARAMETER>D ,<FORMAL PARAMETER) ) 
<PROCEDURE TYPE PART>; 
FORMAL (<FORMAL IDENTIFIER>,<FORMAL IDENTIFIER) 
<FORMAL TYPE PART>; 
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IN THIS CASE, THE VALUE RETURNED TO THE POINT OF INVOCATION 
SHOULD BE FIXED. THERE IS, HOWEVER, NO CHECK FOR THIS AT 
COMPILE TIME. IF THE CONTROL CARD OPTION "FORMALCHECK" IS 
PRESENT, THE RETURNED VALUES WILL BE CHECKED AGAINST THE 
PROCEDURE TYPE AT RUN TIME. 


THE “NON-TYPED" PROCEDURE FOLLOWS THE SAME FORMAT EXCEPT THAT 
THE <PROCEDURE TYPE PART> IS OMITTED SINCE NO VALUE IS 
RETURNED. FOR INSTANCE: 


PROCEDURE A (J,K,L); 
FORMAL J FIXED, (K,L) BIT VARYING; 


WHICH SYNTACTICALLY IS THE SAME AS: 


PROCEDURE <NON-TYPED PROCEDURE IDENTIFIER> 
(<FORMAL PARAMETER> ,<FORMAL PARAMETER? , 
<FORMAL PARAMETER)) ; 
FORMAL <FORMAL IDENTIFIER> <FORMAL TYPE PART>, 
| (<FORMAL IDENTIFIER>,<FORMAL IDENTIFIER>D) 
<FORMAL TYPE PART); 


THE FIELD TYPE OF FORMAL PARAMETERS (1.E., COMPONENTS OF THE 
<FORMAL TYPE PART>) MAY BE STATIC (BIT, CHARACTER, OR FIXED) OR 
VARIABLE (BIT VARYING, CHARACTER VARYING, OR VARYING). 


OFTEN HOWEVER, IT IS IMPOSSIBLE TO DETERMINE THE DATA TYPE AT 
COMPILE TIME ESPECIALLY IF THE ACTUAL PARAMETERS ARE PASSED TO 
THE PROCEDURE FROM DIFFERENT POINTS IN THE PROGRAM AND - UNDER 
DIFFERING CIRCUMSTANCES. SDL ALLOWS THE USER TO SPECIFY 
VARIABLE DATA FIELDS IN THE FORMAL DECLARATION. THE ACTUAL 
PARAMETERS PASSED TO THAT PROCEDURE WILL PROVIDE THE SPECIFICS. 
THUS FORMALS MAY BE DECLARED AS "BIT VARYING", "CHARACTER 
VARYING", OR "VARYING". 


IN A VARIABLE BIT OR CHARACTER FIELD, THE TYPE OF DATA PASSED 
MUST BE THAT WHICH IS SPECIFIED (I.E., BIT OR CHARACTER). THE 
LENGTH, HOWEVER, REMAINS VARIABLE. FORMALS SPECIFIED AS 
"VARYING" MAY ACCEPT ANY TYPE OF DATA OF ANY LENGTH. 


THE DATA TYPES OF CORRESPONDING FORMAL AND ACTUAL PARAMETERS 
WILL NOT BE CHECKED AT COMPILE TIME AND ONLY AT RUN TIME WHEN 
"FORMALCHECK" HAS BEEN SPECIFIED AS A CONTROL CARD OPTION. 


VARYING FORMALS MAY BE REMAPPED, BUT IT IS THE PROGRAMMER-S 
RESPONSIBILITY TO ENSURE THAT THE REMAPPED FORMAL PARAMETER AND 
ITS CORRESPONDING ACTUAL PARAMETER MATCH. A WARNING MESSAGE 
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WILL APPEAR IN THE SOURCE LISTING WHERE THE REMAPPING’ HAS 
OCCURRED. 


SDL ALSO ALLOWS FORMALLY DECLARED ARRAYS TO HAVE A_ VARIABLE 
NUMBER OF ELEMENTS BY SUBSTITUTING "*" FOR THE NUMBER FOLLOWING 
THE <ARRAY IDENTIFIER>. FOR INSTANCE: 


PROCEDURE X (A,B); 
FORMAL A (*) FIXED, B (*) VARYING; 


INTRINSICS 


THE WORD "INTRINSIC" MAY BE USED INTERCHANGEABLY WITH THE WORD 
"PROCEDURE". IT IS, HOWEVER, INTENDED ONLY FOR USE BY THE SDL 
GROUP IN ORDER TO PROVIDE SDL INTRINSICS. 


THE USE OF "INTRINSIC" FORCES THE INTRINSIC TO HAVE “AS ENTRY 
POINT THE DISPLACEMENT O WITHIN A NEW SEGMENT. © 


THE BODY OF THE PROCEDURE FOLLOWS THE HEADING. INCLUDED ARE 
DECLARATION OF LOCAL DATA (DISCUSSED UNDER "THE DECLARATION 
STATEMENT") , NESTED PROCEDURES (ALSO SEE "BASIC STRUCTURE OF 
THE SDL PROGRAM"), EXECUTABLE STATEMENTS, AND AN ENDING. THE 
SYNTAX FOR THE <PROCEDURE EXECUTABLE STATEMENT LIST> FOLLOWS: 


<PROCEDURE BODY> ::= <DECLARATION STATEMENT LIST> 
3 <PROCEDURE STATEMENT LIST> 
<PROCEDURE EXECUTABLE STATEMENT LIST> 
<PROCEDURE ENDING> 


<PROCEDURE EXECUTABLE 
STATEMENT LIST> ::= <PROCEDURE EXECUTABLE STATEMENT > 
/ <PROCEDURE EXECUTABLE STATEMENT > 
<PROCEDURE EXECUTABLE STATEMENT LIST> 


<PROCEDURE EXECUTABLE 
STATEMENT> ::= ~ CEXECUTABLE STATEMENT > 
/ <RETURN STATEMENT > 
/ <SEGMENT STATEMENT > | 
<PROCEDURE EXECUTABLE STATEMENT > 


THE <EXECUTABLE STATEMENT>S WILL BE DISCUSSED IN THE SECTION 
ENTITLED “EXECUTABLE STATEMENTS". AS INDICATED BY THE ABOVE 
SYNTAX, EXECUTABLE STATEMENTS WITHIN A PROCEDURE MAY BE 
SEGMENTED. HOWEVER, A PROCEDURE MUST END IN THE SAME SEGMENT IN 
WHICH IT BEGINS. FOR OTHER SEGMENTATION RESTRICTIONS SEE "THE 
SEGMENT STATEMENT”. | 


THE SYNTAX FOR THE <<RETURN STATEMENT> IS: 


<RETURN STATEMENT> ::= <TYPED PROCEDURE RETURN STATEMENT > 


9-7 


/ <NON-TYPED PROCEDURE RETURN STATEMENT > 


<TYPED PROCEDURE 
RETURN STATEMENT> ::= RETURN <EXPRESSION> 


<NON-TYPED PROCEDURE 
RETURN STATEMENT> ::= RETURN 
/ RETURN. AND.ENABLE. INTERRUPTS 


THE <RETURN STATEMENT> TAKES ONE OF TWO FORMS DEPENDING ON THE 
TYPE OF THE PROCEDURE ENCOMPASSING IT. IF THE PROCEDURE 15S 
"TYPED", AN <EXPRESSION> MUST BE RETURNED TO THE POINT OF 
INVOCATION. IN A "NON-TYPED" PROCEDURE, ONLY A SIMPLE RETURN IS 
NEEDED. FOR EXPRESSION SPECIFICATIONS REFER TO THE SECTIONS 
ENTITLED "EXPRESSIONS" AND "PRIMARIES". 


TYPE CHECKING ON A <RETURN STATEMENT> IS DONE ONLY AT RUN TIME 
WHEN "FORMALCHECK" APPEARS AS A CONTROL CARD OPTION. 


WITHIN ANY GIVEN PROCEDURE (AT ANY LEXIC LEVEL), CERTAIN 
STATEMENTS ARE NESTED WITHIN OTHER STATEMENTS AND ARE ACCESSED, 
MUCH LIKE A PROCEDURE, BY AN ADDRESS GENERATED BY THE LARGER 
STATEMENT. THE MOST GENERAL NESTING LEVEL IS ZERO, AND THE 
NESTING LEVEL OF ANY STATEMENT APPEARS ON AN SDL LISTING UNDER 
THE COLUMN "NL". THE MOST COMMON INSTANCE OF STATEMENTS 
OCCURRING AT NESTING LEVEL 1 OR GREATER ARE: 


1. THE CONDITIONALLY EXECUTED STATEMENTS 


FOLLOWING "THEN" AND "ELSE" IN THE <IF 
STATEMENT>. 

2, STATEMENTS CONTAINED WITHIN A <CASE 
STATEMENT>. 

z <DO-GROUPDS. 


IF THE COMPILER CANNOT FIND A <RETURN STATEMENT> ON NEL O, IT 
WILL GENERATE ONE DIRECTLY PRECEDING THE <PROCEDURE ENDING>. 
THIS IS MERELY A SAFETY MEASURE TO INSURE THAT A PROCEDURE CAN 
ALWAYS BE PROPERLY EXITED. 


A COMPILER-GENERATED RETURN WORKS ESSENTIALLY IN THE SAME MANNER 
AS AN EXPLICIT RETURN. IN A NON-TYPED PROCEDURE, CONTROL IS 

RETURNED TO THE POINT OF THE PROCEDURE-S INVOCATION. IN A TYPED 

PROCEDURE, THE FOLLOWING VALUES ARE RETURNED. 
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IF THE PROCEDURE IS TYPED: THE COMPILER WILL RETURN: 
BIT BITS CONTAINING O 

OF LENGTH SPECIFIED 
CHARACTER BLANKS OF LENGTH SPECIFIED 
FIXED FIXED ZERO 
BIT VARYING 8-BITS OF ZERO 
CHARACTER VARYING ONE BLANK 
VARY ING FIXED ZERO 


RETURN.AND.ENABLE.INTERRUPTS IS FOR MCP USE ONLY. IT WILL CAUSE 
A NORMAL PROCEDURE EXIT TO TAKE PLACE, AND WILL ENABLE 
INTERRUPTS AS WELL. | 


THE <PROCEDURE ENDING> IS THE FINAL STATEMENT OF A PROCEDURE , 
AND THE SYNTAX IS: 


<PROCEDURE ENDING> ::= END 
/ END <PROCEDURE IDENTIFIERD 


THE IDENTIFIER FOLLOWING THE RESERVED WORD "END" IS OPTIONAL. 
ITS SOLE PURPOSE IS TO SIMPLIFY THE DOCUMENTATION OF THE 
PROGRAM. IF AN IDENTIFIER IS SUPPLIED BY THE USER, THE COMPILER 
WILL PERFORM A SYNTAX CHECK TO GUARANTEE THAT THE <PROCEDURE 
ENDING> IS APPROPRIATELY PLACED. 


‘repo term dike trem seme CHD hee GE mete Ghee ent Guete een SUE SOUS CURE em GD eh CEES em ems Ge coy Gee Gn ee Cee ce Gey GE GE? GE Gee au ae cae 


<ASSIGNMENT STATEMENT> ::= <ADDRESS VARIABLE> © 


<REPL ACE > 

<EXPRESSION> 
<ADDRESS VARIABLE> ::= SEE "ADDRESS VARIABLES" 
CREPLACE> ::= @/ ;= 
<EXPRESSION LIST> ::= CEXPRESSION> 


/ <EXPRESSIOND, 
<EXPRESSION LIST> 


CEXPRESSTON> ::= <STRING EXPRESSION> 
/ <STRING EXPRESSION> 
CAT <EXPRESSION> 


Hi 


<LOGICAL FACTOR> 

/ <LOGICAL FACTOR> 
<OR-ING OPERATOR> 
<STRING EXPRESSION> 


<STRING EXPRESSIOND> 


<OR-ING OPERATOR> ::= OR / €EXOR 


<LOGICAL FACTOR>D ::= <LOGICAL SECONDARY > 
/ <LOGICAL SECONDARY > 
AND <LOGICAL FACTOR> 


i 


<LOGICAL PRIMARY> 
/ NOT <LOGICAL PRIMARY> 


<LOGICAL SECONDARY > 


<LOGICAL PRIMARY> ::= <ARITHMETIC EXPRESSION> 
/ <ARITHMETIC EXPRESSION> 
<RELATION> 
<ARITHMETIC EXPRESSION> 
<RELATION>D ::= « ¢/ § ¢ = /: # Ff 2 
LSS / LEQ / EQL / NEQ 
GEQ / GTR 
<ARITHMETIC 
EXPRESSION> ::= <TERM> 
/ <TERM> 


<ADDITIVE OPERATOR> 
<ARITHMETIC EXPRESSION> 


CADDITIVE OPERATOR> 


i 


i 


10-2 


<TERM>: := — <SIGNED PRIMARY> 
/ <SIGNED PRIMARY) 
<MULTIPLICATIVE OPERATOR> 


<TERM> | 
<MULTIPLICATIVE a 
OPERATOR> = * / MOD / <SLASH> 
SIGNED PRIMARY): := | ~ <PRIMARY > 
/ <UNARY OPERATOR) 
<PRIMARY > 
CUNARY OPERATORD ::= + / - 


THE ALGORITHM WHICH COMPILES AN SDL EXPRESSION MAY BE BEST 
UNDERSTOOD IN TERMS OF POLISH POST-FIX NOTATION. POLISH 
NOTATION IS AN ARITHMETICAL OR LOGICAL SYSTEM USING ONLY 
OPERANDS AND OPERATORS ARRANGED IN A SEQUENCE WHICH ELIMINATES 
THE NECESSITY OF PRIMARY BOUNDARIES (1.E., PARENTHESES). 


IN POLISH, OPERANDS ARE EMITTED IN THE SAME LEFT TO RIGHT ORDER 
THAT THEY APPEAR IN. THE EXPRESSION. OPERATORS ARE EMITTED 
ACCORDING TO THE RULES OF OPERATOR PRECEDENCE DEFINED BY SDL. 


NOTE THAT THE END RESULTS OF THE EVALUATION OF AN SDL EXPRESSION 
AND ITS POLISH EQUIVALENT WILL ALWAYS BE THE SAME. HOWEVER, FOR 
OPTIMUM USE OF THE EVALUATION STACK, THE COMPILER MAY NOT LOAD | 
THE OPERANDS IN THE EXACT ORDER INDICATED BY THE POLISH STRING. 


THE PRECEDENCE OF ANY OPERATOR IS DETERMINED BY COMPARING IT 
WITH THE FIRST OPERATOR TO ITS LEFT. FIGURE 3 SHOWS THE 
PRECEDENCE RELATIONSHIP BETWEEN ANY TWO OPERATORS WHICH MAY 
APPEAR IN AN SDL EXPRESSION, | 


THE FOLLOWING ALGORITHM IS USED TO CONVERT AN SDL EXPRESSION 
INTO A POLISH STRING, AND REPRESENTS THE LOGIC BY WHICH THE 
COMPILER TRANSLATES AN EXPRESSION. NOTE THAT THIS IS 
FUNCTIONALLY WHAT THE COMPILER DOES, NOT WHAT IT ACTUALLY DOES. 


i GET TOKEN FROM EXPRESSION. 


>. «TF TOKEN = OPERAND, THEN PLACE IN POLISH 
STRING AND GO TO 1. | | | 


3, IF TOKEN (IE., PRESENT OP) = RIGHT PAREN, THEN 
«TF so LTOKEN TOP OF STACK] (IE., PREVIOUS OP) = 


LEFT PAREN, THEN POP STACK AND GO TO 1. 


o; IF TOKEN = ET AND (TOP OF STACK] = BT, THEN 
EXIT. 

Je IF PRECEDENCE [TOP OF STACK] < PRECEDENCE 
[TOKEN], THEN PUT TOKEN ON TOP OF STACK AND GO 
TO 1. 

6. IF PRECEDENCE [TOP OF STACK] > PRECEDENCE 


CTOKEN], THEN PUT [TOKEN TOP OF STACK] IN 
POLISH AND GO TO 3. 


THE FOLLOWING IS A LIST OF THE SDL OPERATORS FROM’ HIGHEST 
PRECEDENCE TO LOWEST. THIS LIST OR THE TABLE IN FIGURE 3 MAY BE 
USED WHEN EVALUATING AN EXPRESSION. 


+, - (UNARY) 
*, /, MOD 
+, - (BINARY) 
<, g, =, ¥, ae > 
NOT 
AND 
OR, EXOR 
CAT 
1. THE ASSIGNMENT OPERATOR HAS HIGHER PRECEDENCE 


THAN ANY OPERATOR TO ITS LEFT AND LOWER 
PRECEDENCE THAN ANY TO ITS RIGHT. 


e. THE ORDER OF EVALUATION OF OPERATORS HAVING 
EQUAL PRECEDENCE IS ALWAYS FROM LEFT TO RIGHT. 
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PRESENT OP. 


NOT AND OR CAT 


P 
R 
E 
V 
I 
0 
U 
S 
0 
Ps 


FORMULA: PRECEDENCE <PREVIOUS OP> <RELATION> PRECEDENCE <PRESENT OP> 


NOTE: NEG UNARY OPERATORS 
* MULTIPLICATIVE OPERATORS 
= RELATIONAL OPERATORS 
= REPLACE OPERATORS 
BT INFERRED BEGINNING TERMINATOR 
ET INFERRED ENDING TERMINATOR 


FIG 3. OPERATOR PRECEDENCE TABLE 
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UNARY OPERATOR 


THE UNARY OPERATOR ACTS UPON ONE OPERAND AND MAY NEVER APPEAR AS 
AN INF IX OPERATOR BETWEEN TWO OPERANDS. IT MAY APPEAR TO THE 
RIGHT OF ANY OTHER OPERATOR, INCLUDING ITSELF. 


THE UNARY MINUS (-) GENERATES THE TWO-S COMPLEMENT OF THE 
OPERAND ASSOCIATED WITH IT (I1.E., -X = (NOT X)+1). THE OPERAND 
MAY BE ANY DATA TYPE. IF IT IS FIXED, THE UNARY MINUS HAS THE 
EFFECT OF REVERSING THE SIGN, AND THE RESULT IS LABELED ON THE 
EVALUATION STACK AS FIXED. 


IF THE OPERAND IS EITHER A CHARACTER OR BIT STRING, ONLY THE 
LOW-ORDER e4 BITS WILL BE EVALUATED. STRINGS LESS THAN 24 BITS 
WILL BE PADDED WITH LEADING ZEROES TO e4% BITS. THE TWO-S 
COMPLEMENT OF THE STRING IS GENERATED AND RETURNED TO THE STACK 
AS TYPE BIT. NOTE, HOWEVER, THAT THE NEGATION OF ANY BIT OR 
CHARACTER STRING CAN NEVER RESULT IN A VALUE LESS THAN ZERO. 


THE SDL COMPILER GENERATES NO CODE FOR THE UNARY PLUS (+) WHICH 
EXISTS SOLELY FOR THE CONVENIENCE OF THE PROGRAMMER. 


ARITHMETIC OPERATORS 


+ ADDITION 

= SUBTRACT ION 

* MULTIPLICATION 

MOD DIVISION YIELDING INTEGER VALUE OF REMAINDER 
/ DIVISION YIELDING INTEGER VALUE OF QUOTIENT 


THE ARITHMETIC OPERATORS PERFORM e24-BIT ARITHMETIC ON _ TWO 
OPERANDS OF ANY OF THE THREE DATA TYPES. SIGN ANALYSIS WILL BE 
DONE ONLY IF BOTH OPERANDS ARE FIXED. WITH ANY OTHER 
COMBINATION OF DATA TYPES, THE MAGNITUDES OF THE OPERANDS ARE 
EVALUATED. 
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FOR BOTH BIT AND CHARACTER DATA, IF THE FIELD IS GREATER THAN e4 — 
BITS, ONLY THE LOW-ORDER 24 BITS WILL BE EVALUATED. IF THE 
FIELD IS LESS THAN 24 BITS, LEADING ZEROES WILL BE SUPPLIED 
FROM THE LEFT. 


a on sae BIT RESULT WILL BE RETURNED TO THE EVALUATION STACK. IF 
BOTH OPERANDS ARE FIXED, THE RESULT WILL BE FIXED. OTHERWISE, 
THE RESULT WILL BE TYPE BIT. | 


SDL DIVISION RESULTS IN AN INTEGER VALUE. ANY REMAINDER IS 
TRUNCATED THUS: 


© MV 


7/3 
2 f<-9 
THE MOD OPERATION IS DIVISION RESULTING IN THE INTEGER VALUE OF 
THE REMAINDER. IT IS EVALUATED BY THE FOLLOWING FORMULA WHERE 
SIGN(Y) = -1, IF Y<O OR, +1 IF Y2O: 
Y MOD Z = Y-Z*(SIGN(Y/Z) * ABSOLUTE VALUE (Y/Z)) 


FOR EXAMPLE: 


7 MOD 3 = 7-3 * (+1 * ABS 2) = +1 
 -=7 MOD $ = -7-3 * (-1 * ABS(-2)) = -1 
3 MOD -7 = 3--7 * (-1 * ABS 0) = +3 
-3 MOD -7 = -3--7 * (+1 * ABS 0) = -$ 


s 


RELATIONAL OPERATORS 


= EQL ~ EQUAL TO 

# NEQ NOT EQUAL TO 

> GTR GREATER THAN 

< LSS LESS THAN 

2 GEQ_ GREATER THAN OR EQUAL TO 
§ LEQ — LESS THAN OR EQUAL TO 


THE RELATIONAL OPERATORS DO A COMPARISON BETWEEN TWO OPERANDS OF 
ANY DATA TYPE. A I-BIT RESULT IS RETURNED -- @(1)1@ IF THE 
CONDITION IS TRUE, @(1)0@ IF THE CONDITION IS FALSE. 
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IF BOTH OPERANDS ARE FIXED, THE OPERATOR DOES A TRUE SIGNED 
COMPARE . IF BOTH OPERANDS ARE CHARACTER STRINGS, THE SHORTER 
ONE IS PADDED ON THE RIGHT WITH BLANKS, AND A. CHARACTER BY 
CHARACTER MAGNITUDE COMPARE BY COLLATING SEQUENCE IS DONE. 


FOR ALL OTHER OPERAND COMBINATIONS, LEADING ZEROES ARE SUPPLIED 
TO THE SHORTER OF THE TWO. NO SIGN ANALYSIS IS DONE, AND - 
OPERANDS ARE TREATED AS POSITIVE MAGNITUDES. 


LOGICAL OPERATORS 


2A? sOOrRD ahr ANON ATCA OR EY Ge ae COMM nets aU il me sot 


THE LOGICAL OPERATORS PERFORM A BIT BY BIT ANALYSIS ON ALL THREE 
DATA TYPES. "NOT" IS CONSIDERED TO BE A UNARY OPERATOR, AND MAY. 
APPEAR TO THE RIGHT OF ANY OTHER OPERATOR (INCLUDING ITSELF). 


THE OTHER OPERATORS REQUIRE TWO OPERANDS. THE SHORTER OF THE TWO 
IS PADDED ON THE LEFT WITH ZEROES TO DUPLICATE THE LENGTH OF 
THE LARGER. THE FOLLOWING CHART ILLUSTRATES THE USE OF EACH 
OPERATOR. | . 


IF X = 00101110 AND Y = 10101100 THEN 


NOT X = 11010001 
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X AND Y = 00101100 
xX OR Y = 10101110 
X EXOR Y = 10000010 


REPLACE OPERATORS 


WISE ABER RIO cat Mente AONE SLO EIEN GREP anak COUR OSU UNED COD MRED Goo Ew 


<ASSTIGNMENT STATEMENT > <ADDRESS VARIABLE > 
<REPLACE > 


<EXPRESSION> 


it 


CREPLACE> ::5 / 35 

<ASSIGNOR> ::= <ADDRESS VARIABLE > 
<NON-DESTRUCTIVE RELACE> 
<EXPRESSION> 


<NON-DESTRUCT IVE . 
REPLACE> ::= REPLACE, DELETE LEFT PART> 
/ <REPLACE, DELETE RIGHT PART> 


<REPLACE, DELETE | 
LEFT PART> ::= @/ 35 


REPLACE, DELETE 
RIGHT PART> ::2 <-/ 332 


THERE ARE TWO BASIC TYPES OF REPLACE OPERATORS: THE DESTRUCTIVE 
<REPLACE> ASSOCIATED WITH THE <ASSIGNMENT STATEMENT>, AND THE 
<NON-DESTRUCTIVE REPLACE> WHICH OCCURS ONLY WITHIN AN 
EXPRESSION. 


THE DESTRUCTIVE <REPLACE> OPERATOR CAUSES THE EXPRESSION ON ITS 
RIGHT TO “REPLACE” THE VARIABLE ON ITS LEFT. THE EVALUATION 
STACK IS FLUSHED SINCE THIS REPLACE IS NECESSARILY THE LAST 
OPERATION IN THE STATEMENT. 


THE <NON-DESTRUCTIVE REPLACE> TAKES TWO FORMS: "DELETE LEFT" AND 
"DELETE RIGHT". THE "DELETE LEFT” CAUSES THE EXPRESSION TO THE 
RIGHT OF THE OPERATOR TO REPLACE THE VARIABLE ON ITS LEFT. THE 
VARIABLE IS THEN DELETED FROM THE TOP OF THE EVALUATION STACK, 
AND THE EXPRESSION IS LEFT ON THE TOP OF THE STACK. 


THE "DELETE RIGHT" CAUSES THE SAME REPLACEMENT. HOWEVER, THE 
EXPRESSION TO THE RIGHT OF THE OPERATOR IS DELETED FROM THE 
EVALUATION STACK, AND THE VARIABLE TO THE LEFT REMAINS ON THE 
TOP OF THE STACK. 


THE FOLLOWING EXAMPLE ILLUSTRATES THE USE OF THE <NON- 
DESTRUCTIVE REPLACE>: 


PROCEDURE GOOD BIT VARYING; 
DECLARE X BIT(48); 
RETURN X ::= "RESULT"; 

END GOOD; 

PROCEDURE BAD BIT VARYING; 
DECLARE Y BIT(48); 
RETURN Y := "RESULT"; 

END BAD; 


PROCEDURE GOOD WILL EXECUTE PROPERLY SINCE X, DECLARED AS BIT, 
IS) ASSOCIATED WITH THE PROCEDURE TYPE--BIT VARYING. NOTICE, 
HOWEVER, THAT IN PROCEDURE BAD, Y IS DELETED FROM THE STACK AND 
THE CHARACTER STRING "RESULT" REMAINS. UNLESS THE CONTROL CARD 
OPTION "FORMALCHECK" IS SET AT COMPILE TIME, THERE WILL BE NO 
INDICATION THAT THE DATA TYPES (AS IN PROCEDURE BAD) DO NOT 
MATCH THE PROCEDURE TYPE. IF "FORMALCHECK" IS SPECIFIED, THE 
FOLLOWING EXECUTE TIME ERROR MESSAGE WILL BE PRINTED: 


"TYPE ERROR IN RETURNED VALUE" 


IF BOTH OPERANDS ASSOCIATED WITH ANY REPLACE OPERATOR ARE 
CHARACTER FIELDS, AND THE RECEIVING FIELD IS LONGER THAN’ THE 
SENDING FIELD, TRAILING BLANKS WILL BE ADDED. IF THE RECEIVING 
FIELD IS SHORTER, CHARACTERS WILL BE TRUNCATED FROM THE RIGHT. 


WITH EVERY OTHER COMBINATION OF DATA TYPES, WHEN THE RECEIVING 
FIELD IS NOT EQUAL IN LENGTH TO THE SENDING FIELD, LEADING 
BINARY ZEROES WILL BE APPENDED TO THE LARGER RECEIVING FIELD, 
OR HIGH-ORDER BITS ARE TRUNCATED FROM THE LARGER SENDING FIELD. 


ALSO SEE THE REVERSE STORE OPERATION IN THE SECTION ENTITLED 
"EXECUTE-FUNCTION STATEMENT". 
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CONCATENAT ION 


DATA ITEMS MAY BE LINKED TOGETHER (CONCATENATED) BY USING THE 
"CAT" OPERATOR. ALTHOUGH THIS OPERATOR IS INTENDED TO 
CONCATENATE BIT STRINGS OR CHARACTER STRINGS, IT MAY BE USED 
WITH ANY COMBINATION OF DATA TYPES. THE RESULT OF ANY 
CONCATENATION MAY NOT BE GREATER THAN 8191 CHARACTERS OR 65535 
BITS. | 


IF ALL THE OPERANDS ARE CHARACTER STRINGS, THE RESULT IS A 
CHARACTER STRING. FOR ANY OTHER COMBINATION OF DATA TYPES, THE 
RESULT IS A BIT STRING. FOR EXAMPLE: ~ 


‘Be 1 CHARACTER 


LET A = 
B = 6(1)101¢e 3 BITS 
C = +10 FIXED 
THEN | 
B CAT B = @(1)101101¢6 BIT STRING, LENGTH 6 
A CAT A = "BB" CHARACTER STRING, LENGTH e 
A CAT B = @(1)11000010101¢6 BIT STRING, LENGTH 11 
B CAT C = @(3)50000001ce BIT STRING, LENGTH e7 


(EXPRESSED IN OCTAL) 
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PRIMARY ELEMENTS OF THE EXPRESSION 


<PRIMARY> ::= <CONSTANT > 

<VARI ABLE > 
(<EXPRESSION>) 

<CONDI TIONAL EXPRESSION> 
<CASE EXPRESSION> 
<BUMPOR > 

<DECREMENTOR > 

<ASSIGNOR> 


~~ N NNR 


<VARIABLE> ::= <ADDRESS VARIABLE > 
/ <VALUE VARIABLE> 


A PRIMARY IS THE MOST BASIC COMPONENT OF THE SDL EXPRESSION. TO 
AVOID UNNECESSARY REPETITION, SEE "BASIC COMPONENTS OF THE SDL 
LANGUAGE " FOR DISCUSSION OF CONSTANTS, AND SEE “ADDRESS 
VARIABLES" AND "VALUE VARIABLES" FOR DISCUSSION OF VARIABLES. 


CONDITIONAL EXPRESSION 


<CONDI TIONAL 

EXPRESSION> ::= IF <EXPRESSION> 
THEN <EXPRESSION> 
ELSE <EXPRESSION> 


THE EXPRESSION FOLLOWING THE RESERVED WORD "IF" IS EVALUATED. IF 
THE LOW-ORDER BIT OF THE RESULT [IS 1, THE EXPRESSION FOLLOWING 

"THEN" IS EVALUATED. IF IT IS ZERO, THE EXPRESSION FOLLOWING 

"ELSE" IS EVALUATED. UNLIKE THE <IF STATEMENT>, THE "ELSE" PART 

OF THE EXPRESSION MUST BE PRESENT. 


CASE EXPRESSION 


-<CASE EXPRESSIOND 


CASE <EXPRESSION> 
OF (EXPRESSION LIST>) 


<EXPRESSION LISTD 


<EXPRESSION> 
/ SEXPRESSION>, 
<EXPRESSION LIST> 


IN THE <CASE EXPRESSION>, THE VALUE OF THE <EXPRESSION> 
FOLLOWING THE RESERVED WORD "CASE" IS USED AS AN INDEX INTO THE 
LIST OF EXPRESSIONS. THE EXPRESSION THUS SELECTED IS EVALUATED, 
AND THE OTHER EXPRESSIONS IN THE LIST IGNORED. THE RANGE OF THE 
INDEX IS FROM ZERO TO N-1, WHERE N IS THE NUMBER’ OF 
<EXPRESSION>S IN THE LIST. AN EXAMPLE OF AN <ASSIGNMENT 
STATEMENT> CONTAINING A <CASE EXPRESSION> FOLLOWS: 


A:=CASE I OF (A+B, A-B, A*B, A/B, A MOD B) + 
CASE J OF (Q*F-6, 9, S4+B, (A+B) MOD B, C) 


IF [=2 AND J=3, THE STATEMENT WILL BE EVALUATED AS FOLLOWS: 


A:=(A*B) + (A+B) MOD B; 


BUMP 

<BUMPOR> ::= | BUMP <ADDRESS VARIABLE> 
| <MODIF IER? 

<MODIFIER> ::= | <EMPTY> 


/ BY <EXPRESSION> 


BUMPOR LEAVES ON THE EVALUATION STACK, A DESCRIPTOR OF THE ~ 
VARIABLE WHICH HAS BEEN INCREMENTED BY THE VALUE OF THE 

MODIFYING <EXPRESSION>. IF <MODIFIER> IS <EMPTY>, THEN THE 
VARIABLE IS INCREMENTED BY 1. THE RESULTS OF THE FOLLOWING 
EXPRESSIONS (WHERE A IS AN <ARRAY IDENTIFIER>) ARE EQUIVALENT: 


BUMP A(X+Y) BY N 
A(X+Y) ::= ACX+Y) + N 


THE ADVANTAGE OF USING <BUMPOR> IS THAT THE CODE FOR PUTTING THE 
DESCRIPTOR ON THE STACK IS EXECUTED ONLY ONCE. THUS IT IS MORE 
EFFICIENT. | 


LIKE ANY VARIABLE, (<BUMPOR>) WILL CAUSE A VALUE TO BE LOADED TO 
"HE TOP OF THE STACK. HENCE: 


P (BUMP X BY C-D); 
PASSES X BY ADDRESS BUT, 


P( (BUMP X BY C-D)); 
PASSES X BY VALUE. 


<BUMPOR> OPERATES ON ALL THREE DATA TYPES. CHARACTER STRINGS ARE 
TREATED AS IF THEY WERE BIT STRINGS. FOR FIELDS GREATER THAN 24 
BITS, ONLY THE LOW-ORDER 24 BITS ARE EVALUATED. IF THE FIELD IS 
LESS THAN @4% BITS, IT IS PADDED WITH LEADING ZEROES TO e4 BITS. 


DECREMENT 

<DECREMENTOR> z DECREMENT <ADDRESS VARIABLE> 
_ <MODIFIERD 

<MODIFIER> ::= <EMPTY> 


BY <EXPRESSION> 


THE <DECREMENTOR> WORKS EXACTLY LIKE <BUMPOR> EXCEPT THAT THE 
VARIABLE [IS DECREASED BY THE VALUE OF THE <EXPRESSION>. SEE 
ABOVE. — ? | 
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ASSIGNOR 


<ASSIGNOR> ::= <ADDRESS VARI ABLE> 
<NON-DESTRUCTIVE REPLACE> 


_ <EXPRESSIOND a 


<NON-DESTRUCT I VE | 
REPLACE> ::= " - <REPLACE, DELETE LEFT PART> 
_ / <REPLACE, DELETE RIGHT PART> 


“REPLACE, DELETE 
LEFT PART> ::= +/ ;= 


<REPLACE, DELETE 
RIGHT PART> ::= t@-/ 3: 


WITH THE EXCEPTION OF THE <NON-DESTRUCTIVE REPLACE> OPERATOR, 
THE <ASSIGNOR> PERFORMS THE SAME FUNCTION AS THE <ASSIGNMENT 
STATEMENT>. ALL THE RULES WHICH APPLY TO THE <ASSIGNMENT 
STATEMENT> ALSO APPLY TO THE <ASSIGNOR>. FOR DISCUSSION OF THE 
<NON-DESTRUCTIVE REPLACE>, SEE THE SECTION ENTITLED "THE 
REPLACE OPERATOR". | 
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<SIMPLE VARIABLE > 
/ <SUBSCRIPTED VARIABLE> 
/ <INDEXED VARIABLE> 
/ <ADDRESS-GENERATING FUNCTION DESIGNATOR) | 


<ADDRESS VARIABLE> :: 


<SIMPLE VARIABLE> ::= <SIMPLE IDENTIFIERD 
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<STMPLE IDENTIF IER> <IDENTIFIER> 


.SUBSCRIPTED VARIABLE>D ::= CARRAY IDENTIFTIER>D (<EXPRESSIOND) 


CAPRAY IDENTIFIER> ::= CIDENTIF TERD>D 


AS NOTED ABOVE, <ADDRESS VARIABLE>S MAY TAKE THE FORM OF A 
<SIMPLE IDENTIFIER>, OR AN <ARRAY IDENTIFIER> FOLLOWED BY AN 
(<EXPRESSITON)) DESIGNATING THE ARRAY ELEMENT IN QUESTION. IN 
ADDITION, SIMPLE AND ARRAY IDENTIFIERS MAY BE INDEXED. 


INDEXING 
<INDEXED VARIABLE*> -:= <SIMPLE IDENTIFIER> <INDEX PART> 
/ <ARRAY IDENTIFIER> <INDEX PART> 
d 
<INDEX PART> ::= (<EXPRESSION LIST) 


EACH OF THE EXPRESSIONS IN THE <INDEX PART> IS EVALUATED, AND 
THE SUM OF THESE IS FORMED. THIS WILL BE CALLED THE INDEX. 
THE INDEXING OPERATION OCCURS FUNCTIONALLY AS FOLLOWS: 


ig THE SIMPLE OR ARRAY DESCRIPTOR IS LOADED TO 
THE TOP OF THE EVALUATION STACK. 


ia IF THE DESCRIPTOR IS AN ARRAY DESCRIPTOR, THEN 
[IT IS CONVERTED TO A SIMPLE DESCRIPTOR WHICH 
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DESCRIBES THE FIRST (ZERO) ELEMENT OF THE 
ARRAY. 


ze THE ADDRESS FIELD OF THE DESCRIPTOR IS 
MODIFIED BY ADDING TO IT THE INDEX. | | 


NOTE THAT SELF-RELATIVE DATA ITEMS (I1.E., DATA ITEMS WHOSE 
LENGTH IS NOT GREATER THAN @4, WHICH ARE NOT IN A STRUCTURE, | 
AND WHICH DO NOT REMAP SOME OTHER DATA ITEM) MAY NOT BE 
INDEXED. | 


THERE ARE TWO METHODS OF INDEXING: 


i THE DESCRIPTOR PROVIDES THE ADDRESS, AND. THE 
INDEX PROVIDES THE OFFSET FROM THIS ADDRESS. 


2. THE DESCRIPTOR PROVIDES THE OFFSET, AND THE 
INDEX PROVIDES THE ADDRESS. 


EXAMPLE : 


| FIELD D MAY BE ACCESSED USING EITHER METHOD (1) OR METHOD (2). 
ASSUME N CONTAINS THE OFFSET TO B. : 


METHOD (1): 
DECLARE 
O01 A BIT(5000), 
O02 BB, | 
03 cc BIT(5), 
03 OD BIT(e2), 
| 03 EE BIT(3), 
N BIT(24), 
X BIT(e); 


/* THE NEXT STATEMENT WILL MOVE DD (WITH THE OFFSET 
GIVEN BY N) INTO X */ | 
X@-DDINI];: 


METHOD (2): 


more 
{ iQ q. 


DECLARE 


THE. 


A BIT(5000) , 


01 


BB REMAPS BASE, 
02 CC BIT(5), 
02 DD BIT(2), 
02 EE BIT(3), 


N BIT(Ce4), 

x BET Ce); 

/* THE NEXT STATEMENT WILL MOVE DD 

(WITH THE OFFSET GIVEN BY N) INTO X #*/ 
A@DDIN, DATA.ADDRESS(A) 1; 


FOLLOWING: 


THE STRUCTURE ABOVE, COMPRISED OF BB, CC, DD, 


AND EE, WHICH REMAPS BASE IS CALLED A 
"TEMPLATE". , 3 


THIS TEMPLATE MAY BE APPLIED TO ANY DATA AREA 
MERELY BY PROVIDING THE ADDRESS AS PART OF THE 
INDEX. THIS IS NOT THE CASE WHEN METHOD(1) 
INDEXING IS USED. a 


THE EXAMPLE ABOVE IS CONTRIVED -- IN METHOD 
(27; IF N CONTAINED THE ADDRESS OF B- RATHER 
THAN THE OFFSET TO B FROM THE BEGINNING OF A, 
THEN THE STATEMENTS WHICH STORE D INTO X WOULD 
BE IDENTICAL: X@*DDIN]; 
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ADDRESS GENERATING FUNCTIONS 


ceaseless 


<ADDRESS~-GENERAT ING 
FUNCTION DESIGNATOR> 


ii 


<SUB-STRING ADDRESS DESIGNATOR> 
<FETCH COMMUNICATE MESSAGE. 
POINTER DESIGNATOR> 

<DESCRIPTOR DESIGNATOR> 
<DESCRIPTOR-GENERATOR DESIGNATOR> 
<ADDRESS-MODIF IER DESIGNATOR> 


~ 


m~ O™O 


SUBBIT AND SUBSTR 
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<SUB-STRING ADDRESS 
DESIGNATOR> ::= <SUB-STRING FUNCTION IDENTIFIER>D 
| (<STRING ADDRESS> ,<OFFSET PART >) 
/ <SUB-STRING FUNCTION IDENTIFIER> 
(<STRING ADDRESS> ,<OFFSET PART>, 
<LENGTH PART)) 


<SUB-STRING FUNCTION 


IDENTIFIER> ::= | SUBBIT / SUBSTR 
<STRING ADDRESS> ::= <ADDRESS GENERATOR> 
ADDRESS GENERATOR? ::= SEE "ADDRESS GENERATOR" 
<OFFSET PART> ::= <EXPRESSION> | 
<LENGTH PART> ::= <EXPRESSION> 


SUBSTR YIELDS A SUB-STRING OF A CHARACTER STRING IDENTIFIED BY 
THE <STRING ADDRESS>. THE BEGINNING CHARACTER OF THE SUB-STRING | 
IS SPECIFIED BY THE <OFFSET PART> (WHERE THE FIRST CHARACTER OF 
THE STRING IS ZERO). THE <LENGTH PART> SPECIFIES THE LENGTH OF 
THE SUB-STRING. IF OMITTED, THE REST OF THE STRING FROM THE 
"OFFSET" CHARACTER IS ASSUMED. FOR EXAMPLE: 


leno: 


IF X+ "CHARACTER" 
C#"COAL IT TION” 

THEN 
SUBSTR(X ,4)« SUBSTR(C,0,4) 

YIELDS THE CHARACTER STRING: 
"CHARCOAL " 


LIKE ALL CHARACTER-TO-CHARACTER STORE OPERATIONS, IF ~~ THE 
RECEIVING FIELD IS LARGER THAN THE SENDING FIELD, THE SENDING 
FIELD IS PADDED WITH BLANKS ON THE RIGHT. IF THE SENDING FIELD 
iS LONGER, CHARACTERS ARE TRUNCATED FROM THE RIGHT. NOTE THAT 
"HIS IS A FUNCTION OF THE STORE OPERATOR AND NOT SUBSTR. 


SUSBBTT YIELDS A SUB-STRING OF A BIT STRING IDENTIFIED BY THE 
SSTRING ADDRESS>. THE BEGINNING BIT OF THE SUB-STRING IS 
SPECIFIED BY THE <OFFSET PART> (NOTE: THE FIRST BIT OF THE 
STRING [IS 0). THE LENGTH OF THE SUB-STRING IS SPECIFIED BY THE 
LENGTH PART> WHICH, IF OMITTED, WILL BE ASSUMED TO BE THE REST 
OF THE STRING. | 


EXAMPLE: 


iF A#-@(1)00101011016 
B+-@(1)0000111101¢e 
THEN 
SUBBIT(A,2,3) CAT SUBBIT(B,5) 
RESULTS IN: 
@(iLOLlL1iole 
AND 
SUBBITCA,3) CAT SUBBIT(B,0,6) 
RESUL Ts IN: | 
@ci;or1o1io1oo0nlle 


<FETCH COMMUNICATE MESSAGE 
POINTER DESIGNATORD>D ::= FETCH. COMMUNICATE .MSG.PTR 


SEE THE B1700 MCP REFERENCE MANUAL FOR A DESCRIPTION OF THE RUN 
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STRUCTURE . 


IF THE RS.MCP.BIT IS SET, THEN RS.COMMUNICATE.MSG.PTR IS 
ACCESSED. OTHERWISE, RS.REINSTATE.MSG.PTR IS ACCESSED. THE 
ACCESSED FIELD IS ASSUMED TO BE A DESCRIPTOR AND IS PLACED ON 
THE TOP OF THE EVALUATION STACK. 


EXAMPLE: 


DESCRIPTOR(COMM.MSG) FETCH.COMMUNICATE.MSG.PTR: 


COMM.MSG NOW DESCRIBES THE COMMUNICATE MESSAGE, ASSUMING THAT 
THE MESSAGE WAS DESCRIBED BY A NON-SELF-RELATIVE DESCRIPTOR. 


DESCRIPTORS 
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<DESCRIPTOR DESIGNATOR): := DESCRIPTOR (<SIMPLE IDENTIFIERD) 
, / DESCRIPTOR (<ARRAY IDENTIFIERD) 


"DESCRIPTOR" PLACES ON THE EVALUATION STACK, A DESCRIPTOR WHICH 
DESCRIBES THE DESCRIPTOR OF A <SIMPLE IDENTIFIER> OR AN <ARRAY 
IDENTIFIER>. THE DESCRIPTOR FUNCTION MAY APPEAR AS THE OBJECT 
OF A REPLACEMENT, THEREBY PROVIDING EASY ACCESS TO ANY PART OF 
A DESCRIPTOR. , 


EXAMPLE : 
1. SUBBIT(DESCRIPTOR(X) ,4,2)+2; 
2. DESCRIPTOR(X)- DESCRIPTOR(Y) ; 
EXAMPLE (2) FORCES BOTH X AND Y TO DESCRIBE 
THE SAME DATA NAME. NOTE, HOWEVER, THAT IF X 


AND Y ARE NOT EITHER BOTH SIMPLE ITEMS OR BOTH 
ARRAYS, THE RESULT WILL BE INCORRECT. 


MAKE .DESCRIPTOR 
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<DESCRIPTOR-GENERATOR | | | 
DESIGNATOR> ::= a MAKE .DESCRIPTOR(<EXPRESSION> ) 


THE VALUE WHICH 1S GENERATED BY THE <EXPRESSION> IS ASSUMED TO 
ME aA DESCRIPTOR. THIS DESCRIPTOR REPLACES ON THE EVALUATION 
STACK , THE DESCRIPTOR REPRESENTING THAT <EXPRESSION>. IF THE 
MAME ~VALUE BIT OF THE EXPRESSION-S DESCRIPTOR ON THE EVALUATION 
STACK IS SET, THEN THE VALUE OF THE <EXPRESSION> IS REMOVED 
FROM THE VALUE STACK. | 


A <DESCRIPTOR GENERATOR DESIGNATOR> MAY APPEAR AS THE OBJECT OF 
A REPLACEMENT, HOWEVER THE PROGRAMMER IS RESPONSIBLE TO SEE 
THAT THE DESCRIPTOR BUILT GENERATES AN ADDRESS. THERE IS NO 
SYNTAX CHECK FOR THIS. 


THE FOLLOW'NG EXAMPLES ILLUSTRATE THE RELATIONSHIPS BETWEEN THE 
DESCRIPTOR FUNCTIONS: | 


DESCRIP TOR(X) =VALUE .DESCRIPTOR(X) , 
WHERE X IS NON-SELF-RELATIVE 


MAKE .DESCRIPTOR (DESCRIPTOR(X)) = X, 
WHERE Xx IS NON-SELF-RELATIVE 


MAKE .DESCRIPTOR (VALUE .DESCRIPTOR(E)) = E, 
WHERE £€ IS AN <ADDRESS GENERATOR> 


VALUE .DESCRIPTOR (MAKE .DESCRIPTOR(E)) = E, 
WHERE THE VALUE OF E IS A VALID <ADDRESS GENERATOR> 
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NEXT-PREVIOUS.ITEM 
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<ADDRESS-MODIF IER | | | = 
DESIGNATOR>D ::= <ADDRESS-MODIFIER FUNCTION IDENTIFIERD 
| (<SIMPLE IDENTIFIERD) 


<ADDRESS-MODIF IER 
FUNCTION IDENTIFIER> ::= NEXT.ITEM 
/ PREVIOUS.ITEM 


THE NEXT.ITEM FUNCTION CAUSES THE LENGTH FIELD OF THE DESCRIPTOR 
REPRESENTED ‘BY THE <SIMPLE IDENTIFIER> TO BE ADDED TO THE 

ADDRESS FIELD OF THAT DESCRIPTOR. THIS MODIFIED DESCRIPTOR IS 

PUT BACK ONTO THE NAME STACK, AND ALSO MOVED TO THE TOP OF THE 

EVALUATION STACK. MOVING THE MODIFIED DESCRIPTOR TO THE 

EVALUATION STACK IS, IN EFFECT, A LOAD ADDRESS OF THE NEW ITEM 

DESCRIBED BY THE <SIMPLE IDENTIFIER>. HENCE, "“NEXT.ITEM" MAY BE 

USED AS THE OBJECT OF A REPLACEMENT. FOR EXAMPLE, THE FOLLOWING 

STATEMENTS: | 


DECLARE 01 CHAR.STRING CHARACTER(1000), 


O02 NEXT.CHAR CHARACTER(1); 
NEXT. ITEM (NEXT.CHAR)@—"'D" ; 


HAVE THE EFFECT OF STORING "D" INTO THE SECOND CHARACTER OF 
CHAR.STRING, WHICH IS: — , | | 
SUBSTR(CHAR.STRING,1,1) 


THE PREVIOUS. ITEM FUNCTION IS IDENTICAL TO NEXT. ITEM EXCEPT THAT 
A SUBTRACTION (OF LENGTH FROM ADDRESS) IS PERFORMED. 


ADDRESS GENERATORS 


<ADDRESS 
GENERATOR LIST>D ::= 


<ADDRESS GENERATOR> 


<BUMPOR> ::= 
<DECREMENTOR>D ::= 


<CONDITIONAL ADDRESS 
GENERATOR>D ::= 


<CASE ADDRESS 
GENERATOR> ::= 


<ADDRESS-GENERAT ING 
ASSIGNOR> ::= 


™~NRRe 
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<ADDRESS GENERATOR> 
<ADDRESS GENERATOR? , 
<ADDRESS GENERATOR LIST> 


<ADDRESS VARIABLE > 

<BUMPOR > 

<DECREMENTOR > 

<CONDITIONAL ADDRESS GENERATOR> 
<CASE ADDRESS GENERATOR> 
<ADDRESS-GENERATING ASSIGNOR> 


SEE "BUMPOR" 


SEE "DECREMENTOR" 


IF <EXPRESSION> 
THEN <ADDRESS GENERATOR> 
ELSE <ADDRESS GENERATOR> 


CASE <EXPRESSION> 
OF (<ADDRESS GENERATOR LIST>) 


<ADDRESS VARIABLE > 

<REPLACE, DELETE LEFT PART> 
<ADDRESS GENERATOR> 

<ADDRESS VARIABLE > 

<REPLACE, DELETE RIGHT PART> 
<EXPRESS ION> 


THE <ADDRESS GENERATOR> INCLUDES ANY PRIMARY WHICH LEAVES AN 


ADDRESS ON THE TOP OF 
ELEMENTS OF THE EXPRESSION" 


THE EVALUATION STACK. SEE "PRIMARY 
FOR MORE EXPLICIT DETAIL. 


VALUE VARIABLES 


<VALUE VARIABLE> 


/ <TYPED PROCEDURE DESIGNATOR> 
(<ADDRESS VARIABLE >) 
/ <FILE DESIGNATOR> 


™~ 


<FILE DESIGNATOR>:: <FILE IDENTIFIER> 


<VALUE-GENERATING FUNCTION DESIGNATOR> 


/ <SWITCH FILE IDENTIFIER> (<EXPRESSION>) 


<TYPED PROCEDURE 
DESIGNATOR> ::= <TYPED PROCEDURE IDENTIFIERD 
<ACTUAL PARAMETER PART > 


<TYPED PROCEDURE 
IDENTIFIER> ::= <IDENTIFIERD 


<ACTUAL PARAMETER PART> ::= <EMPTY> 
/ (<ACTUAL PARAMETER LIST>) 


<ACTUAL PARAMETER LIST> ::= <ACTUAL PARAMETER> 
/ <ACTUAL PARAMETER>, 
<ACTUAL PARAMETER LIST> 


<ACTUAL PARAMETER> 


<EXPRESSION> 
/ <ARRAY DESIGNATOR> 


<ARRAY DESIGNATOR> 


<ARRAY IDENTIFIER> 


<ARRAY IDENTIFIER> <IDENTIFIER>D 


NOTICE FROM THE ABOVE SYNTAX THAT ANY <ADDRESS VARIABLE> 
ENCLOSED IN PARENS, SUCH AS (SUBBIT (A,I,J)), WILL BE TREATED 
AS A VALUE VARIABLE. 


THE VALUE GENERATED BY A <FILE DESIGNATOR> IS THE FPB NUMBER OF 
THE SPECIFIED FILE. A WARNING MESSAGE WILL BE ISSUED. | 


THE TYPED PROCEDURE (A PROCEDURE WHICH RETURNS A VALUE) IS 
INVOKED WITHIN AN EXPRESSION ACCORDING TO THE ABOVE SYNTAX. THE 
PROCEDURE IDENTIFIER, FOLLOWED BY ITS PARAMETERS (CIF ANY), 
ENCLOSED WITHIN PARENS, [IS TREATED AS AN OPERAND IN- THE 
EXPRESSION. FOR DETAILS ON PASSING PARAMETERS, SEE "ADDRESS AND 


VALUE PARAMETERS". 


L Se 


THE PROCEDURE IS EVALUATED AND THE RETURNED 
VALUE REPLACES THE <TYPED PROCEDURE DESIGNATOR>. FOR EXAMPLE: 


DECLARE Z FIXED; 
PROCEDURE X(A,B) FIXED; 
(A,B) FIXED; 


FORMAL 


END X; 


Z := X(BUMP M,R)+1; 


VALUE GENERATING FUNCTIONS 


<VALUE-GENERATING | 
FUNCTION DESIGNATOR> 


a i 


<SWAP DESIGNATOR> 

<SUB-STRING VALUE DESIGNATOR> 
<DISPATCH DESIGNATOR> 

<LOCATION DESIGNATOR> 

<CONVERT DESIGNATOR> 

<LENGTH DESIGNATOR> 

<MEMORY SIZE DESIGNATOR> 
<DESCRIPTOR-VALUE-GENERATOR DESIGNATOR> 
<INTERROGATE INTERRUPT STATUS DESIGNATOR> 
<DECIMAL CONVERSION DESIGNATOR> 
<BINARY CONVERSION DESIGNATOR> 
<TIME FUNCTION DESIGNATOR> 

<DATE FUNCTION DESIGNATOR> 
<NAME-OF-DAY FUNCTION DESIGNATOR> 
<BASE REGISTER DESIGNATOR> 

<LIMIT REGISTER DESIGNATOR> 
<CONTROL STACK TOP DESIGNATOR> 
<DATA ADDRESS DESIGNATOR> 
<SEARCH.LINKED.LIST DESIGNATOR> 
<SORT.STEP.DOWN DESIGNATOR> _ 
<SORT.UNBLOCK DESIGNATOR> 
<SORT.SEARCH DESIGNATOR> 

<PARITY. ADDRESS DESIGNATOR> 


<DYNAMIC MEMORY BASE Pee ony 


<HASH CODE DESIGNATOR> 

<NEXT TOKEN DESIGNATOR) 
<DELIMITED TOKEN DESIGNATOR> 
<EVALUATION STACK TOP DESIGNATOR> 
<CONTROL STACK BITS DESIGNATOR> 
<NAME STACK TOP DESIGNATOR> 


13-3 


<DISPLAY BASE DESIGNATOR> 
<CONSOLE SWITCHES DESIGNATOR> 
<SEARCH SERIAL LIST DISIGN/TOR> 
<SPO INPUT PRESENT DESIGNATOR> 
<SEARCH.SDL..STACKS DESIGNATOR> 
<EXECUTE DESIGNATOR> 


™N ERS 


SWAP 


ree el 


SWAP DESIGNATOR>D ::= SWAP (<ADDRESS GENERATOR>,<EXPRESSION>) 


THe LENGTH OF THE VALUE DESCRIBED BY THE <ADDRESS GENERATOR>D IS 
USED AS THE LENGTH, L, OF THE DATA TO BE "SWAPPED". HOWEVER, IF 
THE LENGTH OF THE VALUE IS GREATER THAN e4 BITS, L WILL BE e4 
BITS, AND GNLY THE LOW-ORDER 24 BITS OF THE <ADDRESS GENERATORD 
WILL BE MODIFIED. 


THE RIGHTMOST L BITS OF THE VALUE DESCRIBED BY THE <ADDRESS 
GENERATOR> ARE ISOLATED, AND BECOME THE DESTINATION FIELD. 


THE RIGHTMOST L BITS OF THE VALUE GENERATED BY THE <EXPRESSION> 
ARE ISOLATED. LEADING ZEROES ARE SUPPLIED IF THE LENGTH OF THE 
VALUE IS LESS THAN L BITS LONG. THIS FIELD IS KNOWN AS_ THE 
SOURCE FIELD. 


THE SOURCE FIELO [S STORED INTQ THE DESTINATION FIELD, THE 
ORIGINAL VALUE OF WHICH IS THE VALUE RETURNED. THE RETURNED 
VALUE IS OF TYPE BIT AND OF LENGTH L. 


EXAMPLE : 


A+-Q; 
IF SWAP (A,.1) THEN DO ... END; 
ELSE DO ... END; 


IN THE ABOVE EXAMPLE, THE “ELSE” PART OF THE STATEMENT IS 
EVALUATED, SINCE A WAS ORIGINALLY SET TO 0 (I.E., FALSE). AT 
THE END OF THE EVALUATION, 1 HAS BEEN STORED INTO A, AND O 
RETURNED TO THE TOP OF THE EVALUATION STACK. 
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SUBBIT AND SUBSTR 
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<SUB-STRING VALUE 
DESIGNATOR> ::= <SUB~STRING FUNCTION IDENTIFIERD 
| (<STRING VALUE>,<OFFSET PART>) 
/ <SUB-STRING FUNCTION IDENTIFIER> 
(<STRING VALUE>,<OFFSET PART>, | 
<LENGTH PART>) 


<SUB-STRING FUNCTION 


IDENTIFIER> ::= SUBBIT / SUBSTR_ 
<STRING VALUED ::= _ SEXPRESSION> 
<OFFSET PART> ::= <EXPRESSI1ON> 
<LENGTH PART> ::= <EXPRESSION> 


THE <SUB-STRING VALUE DESIGNATOR> AND THE <SUB-STRING ADDRESS 
DESIGNATOR> ARE IDENTICAL EXCEPT THAT THE FORMER RETURNS A 
VALUE IF ITS <STRING VALUE> IS NOT AN <ADDRESS GENERATOR>. 
PLEASE SEE "SUBBIT AND SUBSTR" UNDER “ADDRESS VARIABLES" FOR 
THE SPECIFICS OF THE FUNCTION. 


THE FOLLOWING EXAMPLES ILLUSTRATE SOME OF THE USES OF THE 
<SUB-STRING VALUE DESIGNATOR>: 
X<SUBSTR(A CAT B,5,10);— 


MAKE .DESCRIPTOR(@48@ CAT SUBBIT(A OR B, 0, 16) CAT X) ...3. 
IF SUBSTR(@06@ CAT "ABC", 0) = Y THEN ...; 


DISPATCH 


“DISPATCH DESIGNATOR> ::= | DISPATCH(<PORT,CHANNEL ,PRIORITY>, 
| <1/0 DESPRIPTOR ADDRESS>) 


<PORT,CHANNEL ,PRIORITY> ::= <EXPRESSIOND 

<1/O DESCRIPTOR 

ADDRESS> ::= <EXPRESSION> 

THE RIGHTMOST SEVEN BITS OF THE VALUE OF <PORT. CHANNEL, 
PRIORITY> CONTAIN THE FOLLOWING INFORMATION FROM LEFT TO RIGHT: 


$ BITS S&S BITS | BIT 
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THE RIGHTMOST 24 BITS OF THE VALUE OF THE <I/O DESCRIPTOR 
ADDRESS> IS THE ABSOLUTE ADDRESS OF THE I/O DESCRIPTOR. 


USING THESE TWO VALUES, AN I/O OPERATION IS INITIATED. A_ BIT 
VALUE WITH THE FOLLOWING MEANINGS IS RETURNED: 


DISPATCH REGISTER LOCK BIT SET 
SUCCESSFUL DISPATCH 
SUCCESSFUL DISPATCH, BUT MISSING DEVICE 


—" 
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LOCATION 


<LOCATION DESIGNATOR> ::= LOCATION (<PROCEDURE IDENTIFIERD) 
/ LOCATION (<SIMPLE IDENTIFIER>D) 
/ LOCATION (<ARRAY IDENTIFIER>D) 


<PROCEDURE IDENTIFIER>D = <IDENTIFIER>D 
<SIMPLE IDENTIFIER>: := <IDENTIFIER>D 
<ARRAY IDENTIFIER): : <IDENTIFIER>D 


FOR PROCEDURES, THE <LOCATION DESIGNATOR> RETURNS A 33-BIT VALUE 
(TYPED BIT) CONTAINING, FROM LEFT TO RIGHT: 


ADDRESS TYPE, CONTAINING ®(3)6e 3 BITS 


SEGMENT NUMBER 6 BITS 
PAGE NUMBER 4 BITS 
DISPLACEMENT e0 BITS 


THIS 33-BIT VALUE IS THE ADDRESS OF THE PROCEDURE IN QUESTION. 


A FORWARD DECLARATION IS REQUIRED ONLY DURING RECOMPILATION OR 
CREATE-MASTER FOR ANY PROCEDURE ON WHICH A_ LOCATION IS 
PERFORMED. AN ERROR IS GIVEN IF THIS IS NOT DONE 


FOR SIMPLE AND ARRAY IDENTIFIERS, THE <LOCATION DESIGNATORD>D 
RETURNS A 16-BIT VALUE (TYPED BIT) CONTAINING, FROM LEFT TO 
RIGHT: 


ADDRESS TYPE CONTAINING @(2)06 e BITS 


4 BITS 


LEXIC LEVEL 
OCCURRENCE NUMBER 10 BITS 
CONVERT 


<CONVERSION DESIGNATOR> ::= CONVERT (<EXPRESSIOND, 


<CONVERSION PART >) 


/ CONV (<EXPRESSION>D, 


<CONVERSION PART >) 


<CONVERSION PART> 


<BIT GROUP SIZE> 


<CONVERSION TYPE> 


<BIT GROUP SIZE> ::= ay ae ee Ay le 


THE <EXPRESSION>, WHICH MAY BE OF ANY DATA. TYPE, 
CONVERTED AS SPECIFIED BY THE <CONVERSION TYPE>. 


<EXPRESSION> WILL BE RETURNED AS A VALUE. 


<CONVERSION TYPED 
/ <CONVERSION TYPE>, 


BIT / CHARACTER / FIXED 


WILL BE 
THE CONVERTED 


THE <BIT GROUP SIZE> IS USED ONLY WITH BIT-TO-CHARACTER OR 
CHARACTER-TO-BIT CONVERSIONS. IT SPECIFIES THE NUMBER OF BITS 


(OF THE BIT STRING) WHICH CORRESPOND TO A’ CHARACTER 


CHARACTER STRING. 


NOTE: BIT-TO-CHARACTER CONVERSION DOES 


DECIMAL DIGITS. IF A’ BIT STRING 
CONVERTED TO DECIMAL DIGITS, IT 
STORED IN A FIXED VARIABLE, AND 
VARIABLE CONVERTED. 


NOT YIELD 


IS TO BE 
SHOULD BE 
THE FIXED 


IN THE 
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THE FOLLOWING TABLE SHOWS THE POSSIBLE CONVERSION COMBINATIONS: 


OUTPUT : | CHARACTER 


CONVERT TO CHAR. RETURN 2&4 BITS 
NO CHANGE UNDER CONTROL OF | PROVIDING LEADING 
<BIT GROUP SIZE>;; ZEROES OR LEFT 
IF OMITTED USE 4 TRUNCATION, AS 
NECESSARY 


CONVERT TO BITS 

CHARACTER UNDER CONTROL OF NO CHANGE SEE NOTE 
<BIT GROUP SIZE); 
IF OMITTED USE 4 


DECIMAL CONVER- 

CHANGE TYPE SION W/ LEADING 
TO BIT ZEROS & SIGN NOT NO CHANGE 

SUPPRESSED. (7 

DIGITS + SIGN). 


NOTE: THE CHARACTER STRING MAY HAVE LEADING BLANKS, 
SIGN (OR NONE), MORE BLANKS, AND DECIMAL, 
DIGITS. A PLUS SIGN IS IGNORED. THE DECIMAL 
DIGITS (ONLY THE LOW-ORDER 7) ARE CONVERTED TO 
A BINARY NUMBER THAT IS RIGHT JUSTIFIED IN A 
e4-BIT FIELD. IF THE SIGN WAS MINUS, THEN THE 
ei COMPLEMENT OF THE e24-BIT FIELD IS 


RETURNED. 

EXAMPLES: 
CONVERT (" - 72581" ,FIXED) RETURNS -72581 
CONVERT (@(3)7526,CHARACTER,4) "TEA" 
CONVERT (@(1)11011@,F 1XED) e7 
CONVERT ("13e",BIT,2) | @(2)13ee 
CONVERT ("13e",BIT,4) ®(4)13ee 


CONVERT ("e ",BIT) @(4)20e 


LENGTH 


_<LENGTH vienien ::= LENGTH (<EXPRESSION>) 


THE <LENGTH DESIGNATOR> RETURNS A @24-BIT, TYPE BIT FIELD 
CONTAINING THE NUMBER OF UNITS IN THE <EXPRESSION>. IF THE 
<EXPRESSION> IS TYPE CHARACTER, THEN EACH EMAAR LEN IS A UNIT. 
OTHERWISE , EACH BIT IS A UNIT. 


MEMORY SIZE 


<MEMORY SIZE a a a 
DESIGNATOR> ::= | SeMEMsSIZE: 7 M.MEMsSIZE 


THE REQUESTED MEMORY SIZE IS RETURNED AS A 24-BIT DATA ITEM OF 
TYPE BIT. | 


VALUE DESCRIPTOR 


<DESCRIPTOR-VALUE GENERATOR | | 
DESIGNATOR> ::= VALUE.DESCRIPTOR (<ADDRESS GENERATOR>) 


<ADDRESS GENERATOR> ::= SEE "ADDRESS GENERATORS" 


THE <ADDRESS GENERATOR> IS REPRESENTED BY A DESCRIPTOR AT THE 
TOP OF THE EVALUATION STACK. THIS DESCRIPTOR IS MOVED TO THE 
VALUE STACK. IN ITS PLACE ON THE EVALUATION STACK IS LEFT A 
DESCRIPTOR DESCRIBING THE ONE JUST MOVED TO THE VALUE STACK. 


THE NAME-VALUE BIT IS SET IN THE DESCRIPTOR LEFT IN_ THE 
EVALUATION STACK. | | | 


INTERROGATE INTERRUPT STATUS 


<INTERROGATE INTERRUPT 
STATUS DESIGNATOR> ::= INTERROGATE. INTERRUPT .STATUS 


A c4-BIT DATA ITEM OF TYPE BIT IS RETURNED. THE VALUE REPRESENTS 
THE INTERRUPT BITS OF THE M-MACHINE. THE APPLICABLE M-MACHINE 
INTERRUPT BITS ARE RESET. NOTE THAT THE INCN BITS WILL NOT BE 
RESET. | | 


DECIMAL CONVERSION 


<DECIMAL CONVERSION 
DESIGNATOR> ::= DECIMAL (<EXPRESSION>, 
<DECIMAL STRING SIZED) 


<DECIMAL STRING SIZE> ::= <EXPRESSION> 


THE VALUE OF THE FIRST <EXPRESSION> FOLLOWING THE RESERVED WORD 
"DECIMAL " IS CONVERTED TO A STRING OF DECIMAL CHARACTERS. IF 
THE VALUE OF THE <EXPRESSION>, GENERATES MORE THAN 24 BITS, THEN 
ONLY THE LOW-ORDER 24 BITS ARE USED. 


THE NUMBER OF CHARACTERS RETURNED IS GIVEN BY THE VALUE OF THE 
<DECIMAL STRING SIZE>. A MAXIMUM OF 8 DECIMAL CHARACTERS WILL 
BE RETURNED, EVEN IF THE VALUE OF THE <DECIMAL STRING SIZE> IS 
GREATER. IF THE <DECIMAL STRING SIZE> IS LESS THAN THE NUMBER 
OF DECIMAL CHARACTERS, THEN CHARACTERS ARE TRUNCATED FROM THE 
a 


BINARY CONVERSION 


<BINARY CONVERSION 
DESIGNATOR> ::= BINARY (<EXPRESSION>) 


THE <BINARY CONVERSION DESIGNATOR> RETURNS A FIXED VALUE WHICH 
IS THE BINARY REPRESENTATION OF THE <EXPRESSION>. THE 
<EXPRESSION> IS ASSUMED TO BE A CHARACTER STRING CONTAINING 
DECIMAL DIGITS. ONLY THE LOW-ORDER 8 CHARACTERS WILL BE 
CONVERTED. ZONE BITS ARE IGNORED. 
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IF THE CONVERSION RESULTS IN A BINARY VALUE GREATER THAN 24 BITS 
(I.E., IF THE DECIMAL NUMBER IS GREATER THAN 16,777,215), THEN 
THE LEFT-MOST BITS WILL BE TRUNCATED. 


IF THE DECIMAL NUMBER IS GREATER THAN 8,388,607 (I.E., (@ EXP 
23)-1), THEN THE RETURNED VALUE WILL APPEAR TO BE "NEGATIVE 
(I1.E., THE HIGH-ORDER BIT IS 1). 


TIME FUNCTION 


<TIME FUNCTION 


DESIGNATOR>D ::= TIME 

| / TIME (<TIME FORMAT>,<REPRESENTATIOND) 
<TIME FORMAT> ::= COUNTER / MILITARY / CIVILIAN 
<REPRESENTATION> ::= BIT / DIGIT / CHARACTER 


THE <TIME FUNCTION DESIGNATOR> RETURNS A BIT OR CHARACTER STRING 
WHICH IS THE TIME OF THE FUNCTION-S EXECUTION. THE <TIME 
FORMAT> MAY HAVE THREE BASIC FORMATS: 


COUNTER RETURNS THE TIME OF DAY IN TENTHS OF 


SECONDS. 
MILITARY RETURNS THE TIME OF DAY IN THE FOLLOWING 
| FORM -- HHMMSST (WHERE T=TENTHS OF 
SECONDS) . - 


CIVILIAN RETURNS HHMMSSTAP (WHERE AP=AM OR PM). 


THE TIME OF DAY MAY BE REPRESENTED IN EITHER BITS, DIGITS, OR 
CHARACTERS IN THE FOLLOWING FORMATS: 


BIT DIGIT CHARACTER 
COUNTER e0 BITS e4 BITS 48 BITS 
MILITARY 5+6+6+4=21 8+8+8+4=28 16+16+16+8=56 
CIVILIAN 4+6+6+4+16=36 8+8+8+4+16=44 16+16+16+8+16=7e 


NOTE: — "TIME" AND "TIME (CIVILIAN,CHARACTER)" ARE 
| EQUIVALENT. | 
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DATE FUNCTION 


<DATE FUNCTION 
DESIGNATOR> ::= DATE 

/ DATE (<DATE FORMAT>,<REPRESENTATION>) 
<DATE FORMAT> ::= JULIAN / MONTH / DAY / YEAR 
CREPRESENTATIOND ::= BIT / DIGIT 7 CHARACTER 


THE <DATE FUNCTION DESIGNATOR> RETURNS A BIT OR CHARACTER STRING 
WHICH IS THE DATE OF THE EXECUTION OF THE FUNCTION. 


"DATE" AND "DATE (MONTH,CHARACTER)" ARE EQUIVALENT. 


THE FORMATS CIN BITS) OF THE RETURNED STRINGS ARE: 


BIT DIGIT CHARACTER 
JULIAN (YYDDD) 7+9=16 8+12=20 16+24=40 
MONTH (MMDDYY) 4+5+7=16 8+8+8=c4 16+16+16=48 
DAY (DDMMYY) 5+4+7=16 8+8+8=24 16+16+16=48 
YEAR (YYMMDD) 7+4+5=16 8+8+8=2c4 16+16+16=48 


EXAMPLE: DECLARE D CHARACTER(S) ; 
DDATE (JULIAN,CHARACTER) ; 


“NAME OF DAY — 


<NAME OF DAY FUNCTION 
DESIGNATOR> ::= NAME .OF .DAY 


A CHARACTER STRING, WHICH IS THE NAME OF THE DAY OF THE WEEK, IS 
RETURNED AS A Q-CHARACTER STRING. THE NAME IS LEFT JUSTIFIED. 


EXAMPLE: DECLARE DAY CHARACTER(QY) ; 
DAYNAME . OF .DAY 


OF ke 


BASE REGISTER 


<BASE REGISTER 
DESIGNATOR> ::= BASE .REGISTER 


A c4¥-BIT VALUE OF TYPE BIT IS RETURNED. THE VALUE IS_ THE 
ABSOLUTE ADDRESS OF THE BASE OF THE PROGRAM. IT SHOULD BE NOTED 
THAT TWO SEPARATE EXECUTIONS OF "BASE.REGISTER" MAY NOT YIELD 


THE SAME RESULTS, SINCE THE MCP MAY HAVE MOVED THE PROGRAM IN 
MEMORY. | | 


LIMIT REGISTER 


<LIMIT REGISTER 
DESIGNATOR> ::= | LIMIT.REGISTER © 


THE <LIMIT REGISTER DESIGNATOR> RETURNS A e@4-BIT VALUE (TYPE 

BIT) WHICH IS THE BASE RELATIVE ADDRESS OF THE PROGRAM-S RUN 

_ STRUCTURE. FOR FURTHER EXPLANATION, PLEASE REFER TO THE "B1500 
MCP MANUAL". | 


CONTROL STACK TOP 


<CONTROL STACK TOP | 
DESIGNATOR> ::= CONTROL .STACK. TOP 


A 24-BIT VALUE OF TYPE BIT IS RETURNED. THE VALUE IS THE BASE 
“RELATIVE ADDRESS OF THE NEXT ENTRY TO BE PLACED ON THE CONTROL 
STACK. 


DATA ADDRESS 


<DATA ADDRESS 
DESIGNATOR> ::= — DATA.ADDRESS (<ADDRESS GENERATOR) ) 


<ADDRESS GENERATOR> SEE "ADDRESS GENERATORS" 


THE <DATA ADDRESS DESIGNATOR> RETURNS A 24-BIT VALUE (TYPE BIT) 
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WHICH IS THE BASE RELATIVE ADDRESS GENERATED BY THE <ADDRESS 


GENERATOR>. 


SEARCH.LINKED.LIST 


<SEARCH.LINKED.LIST 


DESIGNATOR> ::= 


SEARCH.LINKED.LIST 

(<RECORD ADDRESS> ,<ARGUMENT INDEX>, 
<COMPARE VARIABLE>,<RELATIOND, 
<LINK INDEX>) 


<RECORD ADDRESS> = <EXPRESSION> 

<ARGUMENT INDEX> = <EXPRESSION> 

<COMPARE VARIABLE> ::= <EXPRESSION> 

<RELATION>D ::= CFF HT F127 > 7 
LSS / LEQ / EQL / NEQ / 
GEQ / GTR 

<LINK INDEX> ::= <EXPRESSION> 


EACH OF THE FOUR EXPRESSIONS ABOVE GENERATES A e24-BIT VALUE 
WHICH IS LOADED TO THE TOP OF THE EVALUATION STACK. THE 
MEANINGS OF EACH EXPRESSION IS AS FOLLOWS: 


er THE 


<RECORD ADDRESS> IS THE BASE RELATIVE 


ADDRESS OF THE FIRST STRUCTURE TO BE EXAMINED. 


es THE 


<ARGUMENT INDEX> IS THE RELATIVE OFFSET 


AND SIZE IN THE STRUCTURE, OF THE 24 (OR LESS) 
BIT FIELD BEING COMPARED WITH THE <COMPARE 


VARIABLE>. 

Si: THE <COMPARE VARIABLE> IS THE CONTROL AGAINST 
WHICH THE SPECIFIED FIELD IN THE STRUCTURE IS 
COMPARED. 

a THE <RELATION> SPECIFIES THE DESIRED RELATION 


IN THE COMPARISON OF THE TWO VALUES. 


or THE 


<LINK INDEX> IS THE RELATIVE OFFSET AND 


SIZE IN THE STRUCTURE, OF THE 24% (OR LESS) BIT 


FIELD 


CONTAINING THE ADDRESS OF THE NEXT 


STRUCTURE TO BE EXAMINED (IF COMPARISON WITH 
THE CURRENT STRUCTURE FAILS). 
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THE LAST STRUCTURE IN THE LINKED LIST CONTAINS ALL 1 BITS IN THE 
FIELD DESCRIBED BY THE <LINK INDEX). 


THE LINKED LIST IS SEARCHED UNTIL THE DESIRED COMPARISON 
SUCCEEDS OR UNTIL THE COMPARISON FAILS WITH THE LAST STRUCTURE. 


IF THE SEARCH SUCCEEDS, THE BASE-RELATIVE ADDRESS OF THE CURRENT 
STRUCTURE IS LEFT ON THE EVALUATION STACK AS A 24-BIT VALUE. IF 
THE SEARCH FAILS, @FFFFFF@® IS LEFT ON THE STACK. 


SORT .STEP.DOWN 


<SORT .STEP.DOWN | 

DESIGNATOR> ::= — SORT.STEP.DOWN 
(<RECORD 1>,<RECORD e2>, 
<KEY TABLE ADDRESS>) 


<RECORD 1> ::= <EXPRESSION> 
<RECORD 2> ::= <EXPRESSION> 
<KEY TABLE ADDRESS> ::= <EXPRESSION> - 


FOR USE BY SORT ONLY. 


THE <SORT.STEP.DOWN DESIGNATOR> PROVIDES THE INFORMATION 
NECESSARY TO COMPARE TWO RECORDS. <RECORD!1> AND <RECORD e> ARE, 
RESPECTIVELY, THE FIRST AND SECOND RECORDS WHICH ARE T0 BE 
COMPARED. THE <KEY TABLE ADDRESS> SPECIFIES THE SORT KEY USED 
IN THE COMPARISON. | | | 


SORT . UNBLOCK 


<SORT . UNBLOCK 
DESIGNATOR> ::= | —  SORT.UNBLOCK (<MINI FIB ADDRESS>, 
<LENGTH> , <SOURCE> , <DESTINATIOND) 


<MINI FIB ADDRESS> ::= <ADDRESS GENERATOR? 
<LENGTH> 3:5 _<EXPRESSION> 
<SOURCE> ::= 


<EXPRESSION> 
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<DESTINATION>D ::= <EXPRESSION> 


FOR USE BY SORT ONLY. 


THE <SORT.UNBLOCK DESIGNATOR> MOVES A RECORD TO OR FROM A 
BUFFER, UPDATING THE BUFFER POINTER AND BLOCK COUNT. MIT 
NORMALLY RETURNS A ZERO. WHEN THE BLOCK COUNT GOES TO ZERO, IT 
RESTORES THE ORIGINAL BUFFER POINTER AND BLOCK COUNT, AND 
RETURNS A 1, SIGNALLING THE NEED FOR AN I/O. 


A BIT ON THE MINI-FIB SIGNALS SORT.UNBLOCK TO CREATE SORT TAGS. 
FOR THIS FUNCTION, IT USES THE SORT KEY TABLE AND SELECTS ONLY 
THE KEY INFORMATION TO MOVE FROM THE BUFFER. A VALUE IN THE 
MINI-FIB REPRESENTS THE LENGTH OF THE RECEIVING FIELD. 


SORT . SEARCH 


— a ce ae ee en ame ae ame a ewe 


<SORT .SEARCH 
DESIGNATOR> ::= SORT . SEARCH 
(<TABLE ADDRESS> ,<LIMIT>) 


<TABLE ADDRESS> 


<ADDRESS GENERATOR> 


<LIMIT> ::= <EXPRESSION>D 


FOR USE BY SORT ONLY. 


THE <SORT SEARCH DESIGNATOR> PROVIDES THE INFORMATION TO 
EVALUATE A RECORD FOR SORTING PURPOSES. THE <TABLE ADDRESS> 
CONTAINS THE ADDRESS, IN AN ARRAY OF RECORDS, OF THE FIRST 
RECORD TO BE EXAMINED AND THE CONDITION UNDER WHICH RECORDS 
WILL BE SELECTED. 


THE <LIMIT> SPECIFIES THE LAST RECORD TO BE EXAMINED. 
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PARITY .ADDRESS 


<PARITY.ADDRESS 
DESIGNATOR>D ::= PARITY.ADDRESS 


FOR MCP USE ONLY. 


THE <PARITY.ADDRESS DESIGNATOR> RETURNS A 24-BIT VALUE WHICH IS 
THE ADDRESS OF THE FIRST PARITY ERROR ENCOUNTERED IN S-MEMORY. 
IF NO PARITY ERROR IS FOUND, @FFFFFFe IS RETURNED. 


DYNAMIC MEMORY BASE 


<DYNAMIC MEMORY | 
BASE DESIGNATOR> ::= DYNAMIC .MEMORY. BASE 


THE <DYNAMIC MEMORY BASE DESIGNATOR> RETURNS A e24-BIT VALUE 
WHICH IS THE BASE RELATIVE ADDRESS OF THE PROGRAM-S DYNAMIC 
MEMORY. REFER TO THE SDL S-LANGUAGE DOCUMENTATION FOR 
DISCUSSION OF THE USE OF DYNAMIC MEMORY. ; 


HASH CODE 
<HASH CODE DESIGNATOR>: := HASH.CODE (<TOKEN>) 
<TOKEN>D: : = <EXPRESSION> 


THE HASH.CODE WILL LEAVE ON THE EVALUATION STACK A DESCRIPTOR OF 
TYPE BIT AND LENGTH e4. THE VALUE WILL BE A HASH CODE BASED ON 
THE FIRST 15 (OR LESS) CHARACTERS OF <TOKEN> AND ON THE LENGTH 
OF <TOKEN>. TO BE EFFECTIVE, THE VALUE GENERATED BY HASH.CODE 
MUST BE USED MODULO A PRIME NUMBER (WHICH IS USUALLY THE HASH 
TABLE SIZE). 
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NEXT TOKEN 

<NEXT TOKEN DESIGNATOR): := NEXT.TOKEN (<FIRST CHARACTER>D, 
<SEPARATOR>, <NUMERIC-TO-ALPHA INDICATOR>, 
<RESULT >) 

<FIRST CHARACTER): := <IDENTIF IER>D 

<SEPARATOR>: := <CHARACTER STRING> 

<NUMERTIC-TO-ALPHA | 

INDICATOR): := SET 

/ RESET 


THE <FIRST CHARACTER> IS A SIMPLE IDENTIFIER WHICH DESCRIBES THE 
FIRST CHARACTER TO BE EXAMINED. THIS WILL USUALLY BE THE FIRST 

CHARACTER OF THE TOKEN. THE <SEPARATOR> IS THE TOKEN SEPARATOR: 

"." FOR SDL, "-" FOR COBOL, ETC. IT MUST BE A SINGLE CHARACTER; 

IF NONE IS NEEDED, USE "A". <NUMERIC- TO-ALPHA INDICATOR> IS 

SET IF SYMBOLS SUCH AS 235AB ARE ALLOWED. IT IS RESET 

OTHERWISE. 


NEXT. TOKEN WILL LEAVE ON THE TOP OF THE EVALUATION STACK’ THE 
DESCRIPTOR OF THE NEXT TOKEN. THIS TOKEN WILL BE AN IDENTIFIER, 
A NUMBER, OR A SPECIAL CHARACTER. THE DESCRIPTOR OF <RESULT> 
WILL ALSO BE REPLACED BY THIS DESCRIPTOR. THE ADDRESS FIELD OF 
<FIRST CHARACTER> WILL BE CHANGED TO POINT TO THE CHARACTER 
FOLLOWING THIS TOKEN. NEXT.TOKEN ASSUMES THAT <FIRST CHARACTER> 
DESCRIBES A NON-BLANK CHARACTER. 


DELIMITED TOKEN 


— ae qune OUD cu EP me GED SE aD cum camp ene ae cums 


<DELIMITED TOKEN , 

DESIGNATORD: := DELIMITED. TOKEN (<FIRST CHARACTER>, 
<DELIMITERS>, <RESULT>) 

<FIRST CHARACTER>::= | <IDENTIFIERD 


<DELIMITERS>::= <CHARACTER STRING>D 
7 / <BIT STRING> 


CRESULT>::= <IDENTIFIER>D 


13-18 


THE <FIRST CHARACTER> IS A SIMPLE IDENTIFIER WHICH DESCRIBES THE 
FIRST CHARACTER TO BE EXAMINED. <DELIMITERS> WILL GENERATE 16 
BITS OF INFORMATION, EACH OF THE 8-BIT BYTES BEING USED AS A 
DELIMITER. FOR SDL, <DELIMITERS> WILL BE """%"; FOR COBOL, 
@7F03@ (QUOTE FOLLOWED BY ETX). | 


DELIMITED.TOKEN WILL LEAVE ON THE TOP OF THE EVALUATION STACK 
THE DESCRIPTOR OF THE STRING OF CHARACTERS FROM (AND INCLUDING) 
<FIRST CHARACTER> UP TO (BUT NOT INCLUDING) WHICHEVER DELIMITER 
WAS FOUND. THE DESCRIPTOR OF <RESULT> WILL BE REPLACED BY THIS 
DESCRIPTOR. THE ADDRESS FIELD OF <<FIRST CHARACTER> WILL BE 
CHANGED TO POINT TO THE DELIMITER WHICH STOPPED THE SCAN. 


EVALUATION STACK TOP 


Cumann STACK 
TOP DESIGNATOR): := EVALUATION. STACK. TOP 


THIS FUNCTION LEAVES ON THE TOP OF THE EVALUATION STACK A 
e4-BiT, SELF-RELATIVE VALUE OF TYPE BIT WHICH IS THE 
BASE-RELATIVE ADDRESS OF THE TOP OF THE EVALUATION STACK 
(BEFORE EXECUTION OF THIS FUNCTION). — 


“CONTROL STACK BITS 


<CONTROL STACK 
BITS DESIGNATOR): := CONTROL .STACK.BITS 


THIS FUNCTION LEAVES ON THE TOP OF THE EVALUATION STACK .A 
2C4¥-BIT, SELF-RELATIVE VALUE OF TYPE BIT WHICH IS THE NUMBER OF 
BITS LEFT IN THE CONTROL STACK UNTIL OVERFLOW. 


NAME STACK TOP 


ee ee eee, er cee mame Sala eee eae eee: emep : enema eae 


<NAME STACK 3 
TOP DESIGNATOR): := NAME .STACK. TOP 
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THIS FUNCTION LEAVES ON THE TOP OF THE EVALUATION STACK A 
e4-BIT, SELF-RELATIVE VALUE OF TYPE BIT WHICH IS THE 
BASE-RELATIVE ADDRESS OF THE TOP OF THE NAME STACK. 


DISPLAY BASE 


<DISPLAY BASE 
DESIGNATOR>: := DISPLAY .BASE 


THIS FUNCTION LEAVES ON THE TOP OF THE EVALUATION STACK A 
e4+-BIT, SELF-RELATIVE VALUE OF TYPE BIT WHICH IS THE 
BASE-RELATIVE ADDRESS OF THE BASE OF THE DISPLAY. 


CONSOLE SWITCHES 


—— ane cam ame ae ae ee oe ae a ee ee ee eee ee eee 


<CONSOLE SWITCHES 
DESIGNATOR>: := CONSOLE .SWITCHES 


NOTE: THIS FUNCTION HAS MEANING ONLY ON THE B172e6 
(OR LARGER). IT LEAVES ON THE TOP OF _ THE 
EVALUATION STACK A @4-BIT, SELF-RELATIVE VALUE 
OF THE 24 CONSOLE SWITCHES. 


SEARCH SERIAL LIST 


<SEARCH SERIAL 

LIST DESIGNATOR>: := SEARCH.SERIAL.LIST (<SSL COMPARE VALUE>, 
<SSL COMPARE TYPE>, <SSL COMPARE FIELDD, 
<SSL FIRST ITEM>, <SSL TABLE LENGTH>D, 
<SSL RESULT VARIABLE>) 


<SSL COMPARE VALUE>:: <EXPRESSION> 


<SSL COMPARE TYPE>:: «/§/=/#/2/) 


<SSL COMPARE FIELD>::= <EXPRESSION> 
SSL. FIRST ITEM «ss <EXPRESSION> 


<SSL TABLE LENGTHD:: 


<EXPRESSION> 


<SSL RESULT VARIABLE>::= <ADDRESS GENERATOR> | 
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SEARCH.SERIAL.LIST SEARCHES A SERIAL LIST OF ITEMS BEGINNING 
WITH THE ITEM DESCRIBED BY <SSL FIRST ITEM>. <SSL COMPARE 
VALUE> IS COMPARED (AS SPECIFIED BY <SSL COMPARE TYPE>) AGAINST 
THE FIELD OF THE ITEM DESCRIBED BY <SSL COMPARE FIELD> (<SSL 
COMPARE FIELD> IS A TEMPLATE) UNTIL A MATCH HAS BEEN FOUND, OR 
UNTIL <SSL TABLE LENGTH> NUMBER OF BITS HAS BEEN SEARCHED. 


IF THE SEARCH SUCCEEDS, THE BASE RELATIVE ADDRESS OF THE ITEM 
CONTAINING THE "SUCCESSFUL" <SSL COMPARE FIELD> IS STORED IN 
<SSL RESULT VARIABLE> AND A @(1)1@ IS RETURNED. 


IF THE SEARCH FAILS, THEN THE END ADDRESS OF THE TABLE IF STORED 
IN <SSL RESULT VARIABLE> AND A @(1)0@ IS RETURNED. 


SPO INPUT PRESENT 


<SPO INPUT | | 
PRESENT DESIGNATOR>: := SPO. INPUT.PRESENT 


A "SPECIAL", SPO.INPUT.PRESENT, HAS BEEN ADDED TO ALLOW THE 
PRESENCE OF SPO INPUT TO BE TESTED BEFORE HAVING TO PERFORM AN 
ACCEPT TO THE MCP. 


SEARCH.SDL.STACKS 


<SEARCH. SDL .STACKS | | | 

DESIGNATOR): := SEARCH.SDL .STACKS 
(<STACK BASE>, <STACK TOP>, 
<COMPARE BASE>, <COMPARE TOP>) 


<STACK BASED: := <EXPRESSION> 
- <STACK TOP>::= <EXPRESSION> 
<COMPARE BASE>::= <EXPRESSION> 
<COMPARE TOP>: := <EXPRESSION> 


THE FOUR PARAMETERS ARE EXPECTED TO GENERATE VALUES WHICH ARE 
BASE-RELATIVE ADDRESSES OF THE BASE AND TOP OF A STACK OF SDL 
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DESCRIPTORS AND OF AN ADDRESS RANGE, RESPECTIVELY. THE STACK 
WILL BE SEARCHED FOR A NON-ARRAY, NON-SELF-RELATIVE SDL 
DESCRIPTOR WHOSE ADDRESS IS WITHIN THE GIVEN RANGE. IF THE 


SEARCH IS SUCCESSFUL @(1)1@ WILL BE RETURNED; OTHERWISE, ©(1)00 
WILL BE RETURNED. 


EXECUTE 
<EXECUTE DESIGNATOR): := | EXECUTE (<EXPRESSION LIST>) 
<EXPRESSION LIST>::= <EXPRESSION> 


/ <EXPRESSION LIST>, <EXPRESSION> 


THE VALUE OF THE LAST EXPRESSION IS EXPECTED TO BE AN _ OPCODE 
WHICH WILL THEN BE EXECUTED BY THE INTERPRETER. EXECUTE MAY BE 
USED AS A STATEMENT AS WELL AS A <VALUE GENERATING FUNCTION 
DESIGNATOR>. 
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ADDRESS AND VALUE PARAMETERS 


A SY te Aer ee Meee GH I Oe SR Ie eteny mem cetY eee SEI Gene denn SR eis WD MD mn GEE Sen a on eee 


ACTUAL PARAMETERS MAY BE PASSED TO A PROCEDURE EITHER BY NAME 
(WHICH PASSES THE ADDRESS OF THE ACTUAL PARAMETER) OR BY VALUE | 
(WHICH PASSES A DUPLICATE COPY OF THE ACTUAL PARAMETER) . 


iF AN <ACTUAL PARAMETER> (SEE "VALUE VARIABLES" AND "EXECUTE 
PROCEDURE STATEMENT") IS PASSED BY ADDRESS, THEN ANY CHANGE TO 
THE CORRESPONDING <FORMAL PARAMETER> IN THE PROCEDURE WILL 
RESULT IN A CHANGE TO THE ORIGINAL VALUE OF THE <ACTUAL 
PARAMETERD. | 


[F A PARAMETER IS PASSED BY VALUE, THEN ONLY THE DUPLICATE COPY 
OF THE <ACTUAL PARAMETER> CAN BE CHANGED. THE ORIGINAL VALUE 
REMAINS UNALTERED, AND pes. DUPLICATE COPY IS ERASED WHEN |THE 
PROCEDURE IS EXITED. 


AN <ACTUAL PARAMETER> MAY BE ANY EXPRESSION OR AN’ <ARRAY 
IDENTIFIER>. SDL HAS SPECIFIED THAT ARRAY IDENTIFIERS MAY ONLY 
BE PASSED BY ADDRESS. AN ARRAY ELEMENT, HOWEVER, MAY BE PASSED 
EITHER BY ADDRESS OR BY VALUE. 


EXPRESSIONS MAY BE DIVIDED INTO TWO GROUPS: 


Ls THOSE WHICH MAY BE PASSED EITHER BY ADDRESS OR 
BY VALUE, AND 


2, THOSE WHICH MAY ONLY BE PASSED BY VALUE. 


AN <ADDRESS GENERATOR> IS PASSED BY ADDRESS UNLESS IT IS 
ENCLOSED WITHIN PARENTHESES, OR UNLESS THE FORMAL PARAMETER TO 
WHICH IT CORRESPONDS HAS BEEN DECLARED AS "FORMAL.VALUE". IN 
THESE TWO CASES <ADDRESS GENERATORSS WILL BE LOADED BY VALUE. 
ALL OTHER EXPRESSIONS ARE LOADED BY VALUE ONLY. 


EXAMPLES OF PARAMETERS PASSED BY ADDRESS: 
P(BUMP X, A) 
P(B( BUMP M), SUBBIT(x,5)) 
P(NEXT.ITEM(B), A: C+D) 
EXAMPLES OF PARAMETERS PASSED BY VALUE: 
P( (BUMP X), (A), 3) 


P((B(BUMP M)), A+B) 
P(SWAP(A,0), (SUBSTR(A,5,3))) 


1/0 CONTROL STATEMENTS 


€<1/0 CONTROL STATEMENT> ::= <OPEN STATEMENT>; 

: <CLOSE STATEMENT > ; 
<READ STATEMENT > 
<WRITE STATEMENT > 
<SEEK STATEMENT >; 
<ACCEPT STATEMENT >; 
<DISPLAY STATEMENT >; 
<SPACE STATEMENT > 
<SKIP STATEMENT >; 


~n Ne NN ON RS 


EACH FILE IS NUMBERED SEQUENTIALLY, BEGINNING WITH ZERO. THIS 
NUMBER IS THE <FILE NUMBER> AND WILL EVENTUALLY BE USED AS AN 
INDEX INTO THE FIB DICTIONARY. THE FILE DECLARATION WILL BE 
USED TO CONSTRUCT AN FPB IN THE CODE FILE. | 


OPEN STATEMENT 


<OPEN STATEMENT): := 


<OPEN PART): := 


<FILE DESIGNATORD: := 


<OPEN ATTRIBUTE PARTD :: 


<OPEN ATTRIBUTE LIST> 


<ATTRIBUTE SEPARATOR): : 


<OPEN ATTRIBUTED ::= 


<INPUT-OUTPUT MODE> 
<LOCK MODE> ::= 
<OPEN ACTION MODE> 
<CODE FILE MODE> ::= 


<MFCU MODE>::= 


<FILE MISSING PART):: 


<FILE LOCKED PART>::= 


FORMAT OPTIONS: 


1. OPEN DECLARED.FILE; 


“~ 


~ NNO 
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<OPEN PART > . 

<OPEN PART>; <FILE MISSING PART> 
<OPEN PART>; <FILE LOCKED PART> 

<OPEN PART>; <FILE MISSING PART> 
<FILE LOCKED PART > | 


OPEN <FILE DESIGNATOR> 
<OPEN ATTRIBUTE PART> 


<FILE IDENTIFIER>D 
<SWITCH FILE IDENTIFIER> (<EXPRESSIOND) 


<EMPTY> 

<OPEN ATTRIBUTE LIST> 

WITH <OPEN ATTRIBUTE LIST> 
<OPEN ATTRIBUTE > 

<OPEN ATTRIBUTE> <ATTRIBUTE SEPARATOR> 
<OPEN ATTRIBUTE LIST> 

» / <SLASH> / <EMPTY> 

< INPUT-OUTPUT MODE > 

<LOCK MODE > 

<OPEN ACTION MODE > 

<CODE FILE MODE> 

<MFCU MODE > 

INPUT / OUTPUT / NEW 

LOCK / LOCK.OUT 

NO.REWIND / REVERSE 

CODE .F-ILE 


PUNCH / PRINT / — 
INTERPRET / STACKERS 


ON FILE.MISSING <EXECUTABLE STATEMENT > 


ON FILE.LOCKED <EXECUTABLE STATEMENT> 
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IF NO ATTRIBUTES ARE SPECIFIED, "INPUT" IS ASSUMED. 


FOLLOWED BY: AND/OR: 


LOCK 
LOCK .OUT 

NO .REWIND 

REVERSE 

LOCK, NO.REWIND 
LOCK, REVERSE 
LOCK.OUT, NO.REWIND 
LOCK.OUT, REVERSE 


e. OPEN DECLARED.FILE OUTPUT 


INPUT, OUTPUT 
OUTPUT, NEW 
INPUT, OUTPUT, NEW 


3. OPEN DECLARED.FILE WITH 


* "NEW" ALONE ASSUMES "OUTPUT, NEW". 


NOTE: THE COMBINATION “INPUT, NEW" RESULTS IN A 
SYNTAX ERROR. 


NOTE: "“CODE.FILE" IS TO BE USED ONLY BY COMPILERS. 
IF THE <OPEN ATTRIBUTE>S HAVE BEEN EXPLICITLY OR IMPLICITLY 


INCLUDED IN THE FILE DECLARATION, THEN THE FILE NEED NOT BE 
EXPLICITLY OPENED HERE. 


CLOSE STATEMENT 


CLOSE <FILE DESIGNATOR> 
<CLOSE ATTRIBUTE PART > 


<CLOSE STATEMENT): : 


<FILE DESIGNATORD: : <FILE IDENTIFIERD 


/ <SWITCH FILE IDENTIFIER> (<EXPRESSION>) 


<CLOSE ATTRIBUTE PART> _ SEMPTY> 
| / <CLOSE ATTRIBUTE LIST> 


/ WITH <CLOSE ATTRIBUTE LIST> 


<CLOSE ATTRIBUTE LIST> 


<CLOSE ATTRIBUTE> 
/ <CLOSE ATTRIBUTE> <ATTRIBUTE SEPARATOR> 
<CLOSE ATTRIBUTE LIST> 


<ATTRIBUTE SEPARATOR): : » / <SLASH> / <EMPTY> 


<CLOSE ATTRIBUTE> ::= <CLOSE MODE > | 
/ CRUNCH / ROLLOUT / IF.NOT.CLOSED 


<CLOSE MODE> ::= REEL / RELEASE / PURGE / REMOVE 
/ NO.REWIND / LOCK / CODE.FILE 


FORMAT OPTIONS: 
1. CLOSE DECLARED.FILE; 


THERE IS NO DEFAULT. IF "LOCK" IS SPECIFIED AS PART OF THE 
FILE ATTRIBUTES, THE FILE IS LOCKED. OTHERWISE THE FILE [5S 


NOT LOCKED. | 
FOLLOWED BY === AND/OR ONE OF: * 
0 OR MORE OF: | 
IF .NOT.CLOSED 
REEL 
2. CLOSE DECLARED.FILE ROLLOUT RELEASE 
CRUNCH PURGE 
3. CLOSE DECLARED.FILE IF .NOT.CLOSED REMOVE 
NO. REWIND 
LOCK 
CODE .FILE 
. IF MORE THAN ONE OPTION IS SPECIFIED, ONLY THE 


FINAL ONE IS USED BY THE COMPILER. 
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FILES NEED NOT BE EXPLICITLY CLOSED. HOWEVER, CLOSING A FILE 
WHEN FINISHED WITH IT WILL FREE MEMORY SPACE FOR OTHER USES. 


NOTE: "CODE.FILE" IS TO BE USED ONLY BY COMPILERS. 
WHEN "CODE.FILE" IS USED, IT IS NOT NECESSARY 
TO USE "LOCK" OR "CRUNCH", 
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READ STATEMENT 


<READ STATEMENT> ::= <READ PART>; | 
/ <READ PART>;<EOF PART> 
<READ PART>;<PARITY PART> 
/ <READ PART>; <EXCEPTION PART > 


~ 


<READ PART> ::= <READ SPECIFIERD 

/ <DISK READ SPECIFIERD> 
<REMOTE READ SPECIFIER> 
/ <QUEUVE READ SPECIFIERD 


~ 


<READ SPECIFIER>: := READ <FILE DESIGNATOR> 
(<ADDRESS GENERATOR> ) 
% SEE "ADDRESS VARIABLES" 


<FILE DESIGNATOR> ::= © <FILE IDENTIFIER>D 
/ <SWITCH FILE IDENTIFIER> (<EXPRESSIOND) 


READ <RECORD LOCK PART > 
<FILE DESIGNATOR> 
<RECORD ADDRESS PART > 
(<ADDRESS GENERATOR? ) 


<DISK READ SPECIFIER> 


<RECORD LOCK PART> ::= <EMPTY> / LOCK 


<EMPTY> 
[<RECORD ADDRESS>] 


<RECORD ADDRESS PART> 


<RECORD ADDRESS> ::= <EXPRESSION> 


<REMOTE READ SPECIFIERD:: 


READ <FILE DESIGNATOR> 
<REMOTE KEY PART> 
(<ADDRESS GENERATOR>) 


<REMOTE KEY PART): := <EMPTY> 

/ (<REMOTE KEY>] 
<REMOTE KEY>::= | <ADDRESS GENERATOR> 
<QUEVE READ SPECIFIER>D::= READ <FILE DESIGNATOR> 


<QUEVE FAMILY MEMBER PART> 
(<ADDRESS GENERATOR) ) 


<QUEUE FAMILY | ; 
MEMBER PART>::= <EMPTY> 
/ {QUEUE FAMILY MEMBER>] 


<QUEUE FAMILY MEMBER>::= <EXPRESSION> 
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<EOF PART> ::= ON EOF <EXECUTABLE STATEMENT > 


<EXCEPTION PART): := ON EXCEPTION <EXECUTABLE STATEMENT > 


THE <READ STATEMENT> PROVIDES THE NECESSARY INFORMATION TO READ 
A FILE: A FILE IDENTIFIER, RECORD ADDRESS, DATA INFORMATION, 
AND INSTRUCTIONS TO BE EXECUTED IF AN END-OF-FILE OR A PARITY 
ERROR IS DETECTED. 


THE <READ STATEMENT> SEPARATES FILES INTO FOUR CATEGORIES: DISK 
FILES, REMOTE FILES, QUEVE FILES, AND ALL OTHERS (CARD, TAPE, 
PAPERTAPE, ETC.). THE USER HAS THE OPTION OF SPECIFYING "LOCK" 
FOR EXCLUSIVE USE OF THE DISK FILE RECORD. IF THE FILE 
ATTRIBUTES INDICATE A RANDOM DISK FILE, THE USER MAY SPECIFY 
<RECORD ADDRESS>. IN ALL OTHER CASES, HE NEED ONLY GIVE THE 
<FILE IDENTIFIER> AND <ADDRESS GENERATOR>. 


IF THE FILE IS OF TYPE "REMOTE", AND THE "REMOTE .KEY" ATTRIBUTE 
IS SET THEN A <REMOTE KEY> MAY BE USED. (FOR THE FORMAT OF 
THIS, SEE THE DISCUSSION UNDER "REMOTE.KEY" IN THE FILE 
DECLARATION SECTION.) IF THE "REMOTE.KEY" ATTRIBUTE IS NOT SET, 
THEN A <REMOTE KEY> MAY. NOT BE USED. AFTER PERFORMING THE READ, 
THE "REMOTE KEY" WILL HAVE BEEN STORED IN THE FIELD SPECIFIED 
AS THE <REMOTE KEY>. 


IF THE FILE IS OF TYPE "QUEUE" AND IS A MULTI-QUEUE FAMILY, THEN 
A <QUEVE FAMILY MEMBER> MAY BE USED. THIS IS AN EXPRESSION 

WHOSE VALUE WILL SPECIFY WHICH MEMBER OF THE FAMILY TO READ 

FROM. IF THIS IS OMITTED, THEN THE OLDEST MESSAGE IN ALL OF THE 

QUEUES WILL BE READ. 


THE <EXECUTABLE STATEMENT>S OF THE <EOF PART> AND <EXCEPTION 
PART> ARE CONSIDERED SUBORDINATE TO THE <READ STATEMENT>. 
THEREFORE, SEGMENTATION OF THESE STATEMENTS IS TEMPORARY (SEE 
"THE SEGMENT STATEMENT"). 


WRITE STATEMENT 


<WRITE STATEMENT> 23 


<WRITE PART> ::= 


<WRITE SPECIFIERD> 


<FILE DESIGNATOR> 


<CARRIAGE CONTROL PART> 


<CARRIAGE CONTROL 
SPECIFIER> ::= 
<SKIP-TO-CHANNEL> ::= 
<CHANNEL NUMBER> ::= 


<DISK WRITE SPECIFIER> 


<EOF PART> ::= 
<EXCEPTION PART>D ::= 
<RECORD LOCK FART>D :: 


<RECORD ADDRESS PART> 


<RECORD ADDRES': > 


<REMOTE WRITE | 


<WRITE PART); | 

<WRITE PART>;<EOF PART). 

C<WRITE PART>;<EXCEPTION PART> 

<WRITE PART>;<EOF PART> <EXCEPTION PART> 


<WRITE SPECIFIER> 

<DISK WRITE SPECIFIER>D 
<REMOTE WRITE SPECIFIERD 
<QUEVE WRITE SPECIFIERD 


WRITE <FILE DESIGNATOR> 
<CARRIAGE CONTROL PART> 
(<EXPRESSION>) 

WRITE <FILE IDENTIFIERD 
<CARRIAGE CONTROL PART> 


<FILE IDENTIFIER> 


 <SWITCH FILE IDENTIFIER> (<EXPRESSIOND) 


<EMPTY> 7 
<CARRIAGE CONTROL SPECIFIER> | 


NO / SINGLE / DOUBLE / PAGE 
<SKIP-TO-CHANNEL> / NEXT | 


<CHANNEL NUMBER> 


Lt et OP wea PTA OTe 


WRITE <RECORD LOCK PART> 
<FILE DESIGNATOR> 

<RECORD ADDRESS PART> 
(<EXPRESSION>) 


ON EOF <EXECUTABLE STATEMENT> 


‘ON EXCEPTION <EXECUTABLE STATEMENT> 


<EMPTY> / LOCK 


<EMPTY> 
(<RECORD ADDRESS> ] 


<EXPRESSION> 


SPECIFIER>::= WRITE <FILE DESTIGNATOR> 
<REMOTE KEY PART> 
(<EXPRESSIOND) 

<REMOTE KEY PART>::= <EMPTY> 


/ (<REMOTE KEY>] 
<REMOTE KEY>::= <ADDRESS GENERATOR> 


<QUEVE WRITE 

SPECIAL>::= WRITE <FILE DESIGNATOR> 
<QUEVE FAMILY MEMBER PART > 
(<ADDRESS GENERATOR>) 


<FILE DESIGNATOR>: := <FILE IDENTIFIER> 
<SWITCH FILE IDENTIFIER> (<EXPRESSIOND) 


<QUEUE FAMILY 
MEMBER PART>::= <EMPTY> 
/ (<QUEUE FAMILY MEMBER) ] 


<QUEUVE FAMILY MEMBER): := <EXPRESSION> 


THE <WRITE STATEMENT> PROVIDES THE NECESSARY INFORMATION’ TO 
WRITE A FILE. THE <WRITE STATEMENT> TREATS DISK FILES 
SEPARATELY FROM OTHER FILE TYPES BY ALLOWING THE USER THE 
OPTION OF LOCKING DISK FILE RECORDS, AND SPECIFYING <RECORD 
ADDRESS> ON HIS RANDOM DISK FILES. THE <CARRIAGE CONTROL PART> 
IS INTENDED FOR USE WITH A PRINTER FILE. 


IF THE FILE 1S OF TYPE “REMOTE", AND THE "REMOTE.KEY" ATTRIBUTE 
IS SET THEN A <REMOTE KEY> MAY BE USED. (FOR THE FORMAT OF 
THIS, SEE THE DISCUSSION UNDER "REMOTE.KEY" IN THE FILE 
DECLARATION SECTION.) IF THE "REMOTE.KEY" ATTRIBUTE IS NOT SET, 
THEN A <REMOTE KEY> MAY NOT BE USED. THE <REMOTE KEY> WILL 
SPECIFY THE TERMINAL TO WHICH THE WRITE IS TO BE PERFORMED. 


IF THE FILE IS OF TYPE "QUEVE" AND IS A MULTI-QUEVE FAMILY, THEN 
A <QUEUE FAMILY MEMBER> MAY BE USED. THIS IS AN EXPRESSION 
WHOSE VALUE WILL SPECIFY WHICH MEMBER OF THE FAMILY TO WRITE 
TO. 


THE <EXECUTABLE STATEMENT>S OF THE <EOF PART> AND <EXCEPTION 
PART> ARE CONSIDERED SUBORDINATE TO THE <WRITE STATEMENT>. 
THEREFORE, SEGMENTATION OF THESE STATEMENTS IS TEMPORARY (SEE 
"THE SEGMENT STATEMENT"). 


[IF THE <END-OF-PAGE PART> IS SET IN THE FILE ATTRIBUTES, THEN 
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WHEN END-OF-PAGE IS DETECTED ON A PRINTER FILE, THE <EOF PART> 
WILL BE EXECUTED. THIS FACILITATES, FOR EXAMPLE, PRINTING 
TOTALS AND/OR HEADINGS WITHOUT KEEPING A LINE COUNTER. 


EXAMPLE: 


WRITE PRINTOUT SINGLE (PRINT.LINE) ; 
ON EOF DO; | 
| WRITE PRINTOUT; % SKIP A LINE: 
WRITE PRINTOUT PAGE (TOTALS) ; 
WRITE PRINTOUT DOUBLE (HEADER) ; 
END; | 
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SEEK STATEMENT 


<SEEK STATEMENT> SEEK <RECORD LOCK PART > 


<FILE DESIGNATOR> 
[<RECORD ADDRESS> ] 
<RECORD LOCK PART> ::= <EMPTY> / LOCK 


<FILE DESIGNATOR): : 


<FILE IDENTIFIERD 
/ <SWITCH FILE IDENTIFIER> (<EXPRESSION>) 


<RECORD ADDRESS> 


<EXPRESSION> 


THE <SEEK STATEMENT> CALLS UP A RECORD FROM A RANDOM DISK FILE 
IN PREPARATION FOR A READ ON THAT RECORD. THIS STATEMENT SHOULD 
ONLY BE USED WITH DISK FILES THAT ARE BEING READ USING A RANDOM 
ACCESS TECHNIQUE. 


A <SEEK STATEMENT> PERFORMED IMMEDIATELY PRIOR TO A_ <READ 
STATEMENT> IS LESS EFFECTIVE THAN MERELY READING THE RECORD. 


“To=te 


ACCEPT STATEMENT 


<ACCEPT STATEMENT> ::= ACCEPT <ADDRESS GENERATOR> 
<END-OF-TEXT SPECIFIER> 


<END-OF - TEXT 
SPECIFIER> ::= <EMPTY> 


/ , END.OF.TEXT 


THE <ACCEPT STATEMENT> CAUSES THE EXECUTION OF A PROGRAM TO HALT 
UNTIL THE APPROPRIATE INFORMATION IS ENTERED VIA THE SPO BY THE 
OPERATOR. THE MESSAGE KEYED IN WILL BE READ INTO THE AREA 


SPECIFIED BY THE <ADDRESS GENERATOR> FOLLOWING THE RESERVED 
WORD "ACCEPT". 


IF ", END.OF.TEXT" IS SPECIFIED, THE SYSTEM WILL INCLUDE THE 
"END OF MESSAGE" CHARACTER WITH THE MESSAGE. OTHERWISE, THE 
"END OF MESSAGE" CHARACTER IS OMITTED, AND THE REST OF THE 
SPECIFIED AREA IS FILLED WITH BLANKS. 


SEE "ADDRESS VARIABLES" FOR THE SYNTAX OF THE <ADDRESS 
GENERATOR>. 
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DISPLAY STATEMENT 


<DISPLAY STATEMENT> ::= DISPLAY <EXPRESSION> 
<CRUNCH SPECIFIER>D 


<CRUNCH SPECIFIER> ::= <EMPTY> 
/ , CRUNCHED 


THE <DISPLAY STATEMENT> PRINTS AN OUTPUT MESSAGE ON THE SPO. AS 
NOTED, THE <CRUNCH SPECIFIER> IS OPTIONAL. IF ", CRUNCHED" IS 
SPECIFIED, THE SYSTEM WILL DELETE TRAILING BLANKS AND ALL 
OCCURRENCES OF EMBEDDED BLANKS. ONE BLANK IS SUBSTITUTED FOR 
EACH OCCURRENCE OF MULTIPLE EMBEDDED BLANKS. 
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SPACE STATEMENT 


<SPACE STATEMENT> ::= <SPACE PART>; 
| / <SPACE PART>; <EOF PART> 
<SPACE PART>; <EXCEPTION PART > 


~ 


/ <SPACE PART>; <EOF PART> <EXCEPTION PART> 


<SPACE PART) ::= SPACE <FILE DESIGNATOR> 


<SPACING SPECIFIER> 
<FILE DESIGNATOR> ::= = <FILE IDENTIFIER> 
| —-/ $SWITCH FILE IDENTIFIER> (<EXPRESSION)) 
‘SPACING SPECIFIER> ::= | <EXPRESSION> / TO <EXPRESSION> 
<EOF PART> ::= | ON EOF <EXECUTABLE STATEMENT> 


<EXCEPTION PART): := ON EXCEPTION <EXECUTABLE STATEMENT > 


THE <SPACE STATEMENT> ALLOWS THE USER TO SKIP OVER CERTAIN 
RECORDS IN A SEQUENTIAL FILE. 


THE <SPACING SPECIFIER> MAY TAKE TWO FORMS. AN <EXPRESSIOND> 
ALONE WILL INDICATE THE NUMBER OF RECORDS TO BE SPACED. IT MAY 
BE A NEGATIVE NUMBER INDICATING REVERSE SPACING. "TO 
<EXPRESSION>" WILL ALWAYS BE A POSITIVE NUMBER AND INDICATES 
THE NUMBER OF THE RECORD TO SPACE TO. 


THE <EXECUTABLE STATEMENT>S OF THE <EOQF PART> AND <EXCEPTION 
PART> ARE CONSIDERED SUBORDINATE TO THE <SPACE STATEMENT>. 
THEREFORE, SEGMENTATION OF THESE STATEMENTS IS TEMPORARY (SEE 
"THE SEGMENT STATEMENT"). 
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SKIP STATEMENT 


<SKIP STATEMENT > SKIP <FILE IDENTIFIER> TO <CHANNEL NUMBER> 


<FILE DESIGNATOR> ::= <FILE IDENTIFIERD 
/ <SWITCH FILE IDENTIFIER> (<EXPRESSION>) 


<SKIP STATEMENT > 


SKIP <FILE DESIGNATOR> TO <CHANNEL NUMBER> 


<CHANNEL NUMBER> 


Lf. tS fT ade JT ST te 


THE <SKIP STATEMENT> CAUSES THE LINE. PRINTER TO SKIP TO A 
SPECIFIED CHANNEL NUMBER ON ITS CARRIAGE TAPE. THE CHANNEL 
NUMBERS CONTROL THE VERTICAL SPACING OF DATA ON A PRINTED PAGE. 


<EXECUTABLE STATEMENT 
LIST> ::s 


<EXECUTABLE STATEMENT> 


<ASSIGNMENT STATEMENT > 


<1/0 CONTROL STATEMENT > 


<SEGMENT STATEMENT > 


il 


EXECUTABLE STATEMENTS 


M™ SE RRR RRR SR RRR 
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<EXECUTABLE STATEMENT > 
<EXECUTABLE STATEMENT > 
<EXECUTABLE STATEMENT LIST> 


<DO GROUP>;: 
<GROUP TERMINATION STATEMENT): 
<IF STATEMENT) | 

<CASE STATEMENTD: 

<ASSIGNMENT STATEMENT); 
<EXECUTE-PROCEDURE STATEMENT); 
<EXECUTE-FUNCTION STATEMENT); 
<1/0 CONTROL STATEMENT> 
<MODIFY INSTRUCTION>; 

<NULL STATEMENT> 

<FILE ATTRIBUTE STATEMENT); 
<STOP STATEMENT>; 

<ZIP STATEMENTD: 

<SEARCH STATEMENT> 


<ACCESS FILE HEADER STATEMENT > 


<SEND STATEMENT? | 
<RECEIVE STATEMENT> 

<ARRAY PAGE TYPE STATEMENT> 
<WAIT STATEMENT) ; 

<SEGMENT STATEMENT> 
<EXECUTABLE STATEMENT > 


SEE “ASSIGNMENT STATEMENTS 
AND EXPRESSIONS" 


SEE "1/0 CONTROL STATEMENTS" 


SEE "THE SEGMENT STATEMENT" 
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DO GROUPS 


a se Meee ae a wen ae aa 


<DO GROUP> ::= <GROUP HEAD> 
<GROUP BODY> 


<GROUP NAME> 
<FOREVER PART>; 


if 


<GROUP HEAD> 


DO 
/ DO <GROUP IDENTIFIER> 


<GROUP NAME > 


i 


<FOREVER PART> ::= <EMPTY> 
/ FOREVER 
<GROUP IDENTIFIER> ::= <IDENTIFIER> 
<GROUP BODY> ::= | <EXECUTABLE STATEMENT LISTD 


<GROUP ENDING) 


<GROUP ENDING> ::= END 
| / END <GROUP IDENTIFIER> 


THE <DO GROUP> IS A COLLECTION OF <EXECUTABLE STATEMENT>S WHICH 
FUNCTIONS AS A ROUTINE. IT IS EXECUTED ONCE UNLESS "FOREVER" 
APPEARS AFTER THE <GROUP NAME>. S 


IF "FOREVER" IS PRESENT, THE <DO GROUP> WILL BE EXECUTED 
ITERATIVELY . UNTIL A SPECIFIC CONDITION IS MET. ONLY A <GROUP 
TERMINATION STATEMENT> (UNDO) OR A <TYPED PROCEDURE RETURN 
STATEMENT> (RETURN) CAN GET THE PROGRAM OUT OF ae LOOP. SEE 
THE FOLLOWING EXAMPLE: 


DO THIS FOREVER; 
READ CARD (A); ON EOF UNDO; 
IF 55 GTR BUMP x 
THEN WRITE PRINTER (A); 


ELSE DO; 
Xt 1: 
WRITE PRINTER PAGE (A); 
7 END; 
-END THIS; 


IF IT IS NECESSARY TO EXECUTE THE STATEMENTS IN A <DO GROUP> 
FROM . DIFFERENT POINTS IN THE PROGRAM, MORE EFFICIENT CODE IS 
GENERATED BY MAKING THE BODY OF THE GROUP A PROCEDURE RATHER 
THAN BY REPEATING THE <DO Paes 


RESTRICTIONS: 


1. 


IF A <GROUP IDENTIFIER> IS INCLUDED IN THE 
<GROUP NAME>, IT MUST ALSO APPEAR IN THE 
<GROUP ENDING). 


IF THE <GROUP NAME> DOES NOT INCLUDE AN 
IDENTIFIER, THE <GROUP ENDING> MUST NOT 
CONTAIN ONE. 


"FOREVER" IS NOT A RESERVED WORD AND MAY 
APPEAR AS THE <GROUP IDENTIFIERD. "DO 
FOREVER;"” IS CONSIDERED TO BE THE <GROUP HEAD> 
OF AN UN-NAMED, ITERATIVE <DO GROUP>. "DO 
FOREVER FOREVER" IS A LEGAL HEADING FOR A 
NAMED, ITERATIVE GROUP. 


NESTED <DO GROUP>S MAY NOT HAVE DUPLICATE 
IDENTIFIERS. IF THIS OCCURS, A WARNING MESSAGE 
WILL APPEAR ON THE PROGRAM LISTING. 


<DO GROUP>S MAY BE NESTED 32 LEVELS DEEP. 
HOWEVER, A <GROUP TERMINATION STATEMENT> CAN 
UNDO ONLY A MAXIMUM OF 16 LEVELS. 


GROUP TERMINATION STATEMENT 


<GROUP TERMINATION 

STATEMENT> ::= UNDO 
/ UNDO (*) | 
/ UNDO <GROUP IDENTIFIER> 


<GROUP IDENTIFIER> ::= <IDENTIFIER>D 


THE <GROUP TERMINATION STATEMENT > WILL CAUSE THE EXECUTION OF A 
<DO GROUP> TO CEASE, AND WILL TRANSFER CONTROL TO THE NEXT 


STATEMENT FOLLOWING THE <DO GROUP> WHICH HAS BEEN "UNDONE". 


STATEMENT MAY TAKE ONE OF THREE FORMS: 


a "UNDO" WILL TRANSFER CONTROL OUT OF THE 
GROUP> WHICH CONTAINS THE STATEMENT. 

e. IF <DO GROUP>S ARE NESTED, "UNDO 
TRANSFERS CONTROL OUT OF THE OUTERMOST 
GROUP >. 

5% "UNDO <GROUP IDENTIFIER>" TAKES CONTROL OUT OF 


THE <DO GROUP> SPECIFIED BY THE IDENTIFIER. 


NOTE: UNDO (*) AND UNDO <IDENTIFIER> CAN UNDO A 


MAXIMUM OF 16 LEVELS. 


EXAMPLE : 
1. DO ONE; 
2. DO TWO FOREVER; 
3. IF <EXPRESSION> THEN 
4, DO THREE; 
5. CASE <EXPRESSION); 
6. UNDO; /* SAME AS UNDO THREE; 
7. UNDO TWO; 
8. UNDO (*); /* SAME AS UNDO ONE; 
9, END CASE; 
10. END THREE; 
11. END TWO; 
12. END ONE; 


EXECUTION OF LINE 6 TRANSFERS CONTROL TO LINE 11. 
EXECUTION OF LINE 7 TRANSFERS CONTROL TO LINE le. 
EXECUTION OF LINE 8 TRANSFERS CONTROL TO THE NEXT 


STATEMENT FOLLOWING LINE le. 


THE 


*/ 


16-5 


IF STATEMENT 


<IF STATEMENT > <IF CLAUSE > 
<EXECUTABLE STATEMENT > 

/ <IF CLAUSE> 
<EXECUTABLE STATEMENT > 


ELSE <EXECUTABLE STATEMENT > 


<IF CLAUSE> ::= IF <EXPRESSION> THEN 


THE <EXPRESSION> IS EVALUATED. IF THE LOW-ORDER BIT OF THE 
RESULT IS 1 (I.E., TRUE), THE STATEMENT FOLLOWING "THEN" IS 
EXECUTED. IF THE LOW-ORDER BIT IS O (1.E., FALSE), THE 
STATEMENT FOLLOWING "ELSE" (IF PRESENT) IS EXECUTED. IF THE 
RESULT OF THE<EXPRESSION> IS FALSE, AND THE "ELSE" PART IS 
OMITTED, CONTROL IS TRANSFERRED TO THE NEXT STATEMENT AFTER THE 
<IF STATEMENT>. 


CIF STATEMENT>S MAY BE NESTED. THE OUTERMOST <IF CLAUSE> AND THE 
OUTERMOST "ELSE" ARE ON NESTING LEVEL O. THE <EXECUTABLE 
STATEMENT>S FOLLOWING "THEN" AND "ELSE" ARE ON NESTING LEVEL 1. 
NESTING MAY BE NO DEEPER THAN 3e LEVELS. 


WHEN USING NESTED <IF STATEMENT>S, THE USER MUST MAINTAIN 
CORRESPONDENCE BETWEEN THE DELIMITERS "THEN" AND "ELSE" ON EACH 
LEVEL. THE INNERMOST "ELSE" WILL ALWAYS BE ASSOCIATED WITH THE 
INNERMOST "THEN". FROM THIS POINT CONTINUES AN OUTWARD 
PROGRESSION (I.E., FROM HIGHEST NESTING LEVEL TO LOWEST) OF 
"THEN-ELSE" ASSOCIATION. 


THUS, IF AN <IF STATEMENT> ON NESTING LEVEL N IS TO HAVE AN 
"ELSE" ASSOCIATED WITH IT, THEN EVERY <IF STATEMENT> ON A 
NESTING LEVEL GREATER THAN N MUST ALSO HAVE "ELSES" ASSOCIATED 
WITH THEM. IF THE USER WISHES TO EXECUTE NOTHING ON A_ FALSE 
CONDITION, THEN "ELSE" FOLLOWED BY A <NULL STATEMENT> MAY BE 
USED. 
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EXAMPLE : 


LET E-1, E-2, E-3, AND E-4 BE <EXPRESSIONDS 
LET S-e, S-3, AND S-4 BE <EXECUTABLE STATEMENT>S 


IF E-1 
THEN IF E-e 
THEN IF E-3 
THEN IF E-4 
THEN S-4; 
ELSE ; 
ELSE S-3; 
ELSE S-e; 


CASE STATEMENT 


<CASE STATEMENT > <CASE HEAD> 


<CASE BODY> 


<CASE HEAD> CASE <EXPRESSION> ; 


<CASE BODY> <EXECUTABLE STATEMENT LIST> 


<CASE ENDING> 


<CASE ENDING) ::= END CASE 


THE <EXPRESSION> SERVES AS AN INDEX INTO THE LIST OF <EXECUTABLE 
STATEMENT>S. THE STATEMENT SELECTED IS EXECUTED, AND THE OTHERS 
IGNORED. CONTROL IS THEN TRANSFERRED TO THE STATEMENT FOLLOWING 
THE <CASE ENDING> UNLESS, OF COURSE, THE STATEMENT IS A 
"RETURN" OR AN "UNDO". 


IF THERE ARE N NUMBER OF STATEMENTS IN THE LIST, THEN THE RANGE 
OF THE VALUE OF THE <EXPRESSION> MAY BE FROM O THROUGH N-1. 


THE STATEMENTS IN THE LIST MAY BE ANY LEGAL <EXECUTABLE 
STATEMENT> ALLOWED IN SDL. IF THE USER WISHES TO EXECUTE 
NOTHING IN A GIVEN CASE, THE <NULL STATEMENT> IS AN APPROPRIATE 
STATEMENT. 
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EXECUTE-PROCEDURE STATEMENT 


<EXECUTE-PROCEDURE _ 
STATEMENT> ;::= | <NON-TYPED PROCEDURE DESIGNATOR> 


<NON-TYPED PROCEDURE | 
DESIGNATOR> ::= | <NON-TYPED PROCEDURE IDENTIFIER> 
<ACTUAL PARAMETER PART> 


<NON-TYPED PROCEDURE 7 
IDENTIFIER>D ::= <IDENTIF TER>D 


<ACTUAL PARAMETER PART> ::= <EMPTY> | 
/ (<ACTUAL PARAMETER LIST>) 


<ACTUAL PARAMETER LIST> ::= <ACTUAL PARAMETER> 
| | / <ACTUAL PARAMETER>, — 
<ACTUAL PARAMETER LIST>~ 


<EXPRESSION> 


<ACTUAL PARAMETER> , 
7 / <ARRAY DESIGNATOR> 


<ARRAY DESIGNATOR> 


<ARRAY IDENTIFIER> 


A NON-TYPED PROCEDURE, I.E., A PROCEDURE WHICH PERFORMS A 
FUNCTION AND DOES NOT RETURN A VALUE, IS INVOKED THROUGH AN 
<EXECUTE-PROCEDURE STATEMENT>. THE NAME OF THE PROCEDURE IS 
FOLLOWED BY ITS PARAMETERS ENCLOSED IN PARENS. REFER TO THE 
SECTION "ADDRESS AND VALUE PARAMETERS" FOR INFORMATION 
CONCERNING PASSING PARAMETERS. 


FOR A DESCRIPTION OF THE INVOCATION OF TYPED PROCEDURES, . SEE 
"VALUE VARIABLES". 


EXECUTE-FUNCTION STATEMENT 


<EXECUTE-FUNCTION 
STATEMENT> ::= <FUNCTION DESIGNATOR> 


<FUNCTION DESIGNATOR> ::= <DUMP DESIGNATOR> 

<TRACE DESIGNATOR> 

<SAVE DESTIGNATOR> 

<RESTORE DESIGNATOR> 

<FETCH DESIGNATOE> 

<HALT DESIGNATOR> 

<REINSTATE DESIGNATOR> 
<ACCESS-FPB DESIGNATOR> 
<REVERSE STORE DESIGNATOR> 
<READ CASSETTE DESIGNATOR> 
<OVERLAY DESIGNATOR> 

<ACCESS OVERLAY DESIGNATOR> 
<ERROR COMMUNICATE DESIGNATOR> 
<SORT DESIGNATOR> 

<SORT.SWAP DESIGNATOR> 
<INITIALIZE.VECTOR DESIGNATOR> 
<THREAD.VECTOR DESIGNATOR> 
<ENABLE. INTERRUPTS DESIGNATOR> 
<DISABLE. INTERRUPTS DESIGNATOR> 
<ACCESS FILE INFORMATION 

DES IGNATOR> 

<HARDWARE MONITOR DESIGNATOR> 
<SAVE STATE DESIGNATOR> 
<DEBLANK DESIGNATOR> 
<FREEZE-PROGRAM DESIGNATOR> 
<THAW-PROGRAM DESIGNATOR> 
<DUMP-FOR-ANALYSIS DESIGNATOR> 
<COMPILE-CARD-INFO DESIGNATOR> 
<COMMUNICATE DESIGNATOR> 


NER RRR RR RR RR RRR RRR SS 
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DUMP 


<DUMP DESIGNATOR>D ::= DUMP 


THE SDL STACKS WILL BE DUMPED TO THE LINE PRINTER IN SOME 
REASONABLE FORMAT. PROGRAM EXECUTION WILL CONTINUE AFTER THE 
DUMP . | 
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<TRACE DESIGNATOR> TRACE / NOTRACE / TRACE (<EXPRESSION>) 


THE "TRACE" WILL CAUSE THE SDL INSTRUCTIONS OF THE NORMAL STATE 
PROGRAM TO BE TRACED ON THE LINE PRINTER. "NOTRACE" WILL TURN 
OFF THE TRACE. 


"TRACE (<EXPRESSION>)" PROVIDES GREATER CONTROL OF THE TRACING 
TO BE DONE. THE LOW-ORDER 10 BITS ARE USED IN THE FOLLOWING WAY 
(NUMBERING OF THE 10 IS FROM LEFT TO RIGHT): 


BIT USE 


0 TRACE ALL COMMANDS EXCEPT THOSE WHICH MODIFY 
DATA OR CHANGE THE PROGRAM POINTER STACK. 
NORMAL STATE ONLY. 


1 TRACE COMMANDS WHICH MODIFY DATA ITEMS (E.G., 
CLR, SNDL, ETC.). NORMAL STATE ONLY. 


2 TRACE COMMANDS WHICH CHANGE THE PROGRAM 
POINTER STACK (E.G., IFTH, CASE, EXIT, ETC,). 
NORMAL STATE ONLY. 


5 NOT USED. 

4-6 SAME AS O-e, BUT FOR MCP. SEVERAL MCP ROUTINES 
(GETSPACE, FORGETSPACE, AND OTHERS) WILL NOT 
BE TRACED. 


7-9 SAME AS O-e, BUT WILL TRACE THOSE MCP ROUTINES 
NOT TRACED BY 4-6. 


NOTE THAT "TRACE (@3800)" [S THE SAME AS "TRACE", WHILE "TRACE (0) 
IS THE SAME AS "NOTRACE". 


SAVE 


<SAVE DESIGNATOR>D ::= SAVE (<EXPRESSION LIST>) 


EACH OF THE <EXPRESSION>S, FROM LEFT TO RIGHT, WILL BE 
EVALUATED, AND THE VALUE OF EACH LEFT ON THE EVALUATION STACK 
(AND VALUE STACK, IF NECESSARY). SEE <RESTORE DESIGNATOR>. 
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RESTORE 


—s a ee Te any ee 


<RESTORE DESIGNATOR) ::= RESTORE (<ADDRESS GENERATOR LIST>) 
<ADDRESS GENERATO | 
L1Sts <2 | SEE “ADDRESS GENERATORS" 


THE <RESTORE DESTGNATOR> ASSIGNS THE CURRENT VALUE ON THE TOP OF 
THE EVALUATION STACK TO EACH <ADDRESS GENERATORD, FROM RIGHT TO 
LEFT, IN THE LIST. THIS OPERATOR IS USED IN CONJUNCTION WITH 
THE <SAVE DESIGNATOR>. SEE ABOVE. 

EXAMPLE : 


SAVE (A,B,C); 


RESTORE (A,B,C); 
NOTE THAT “RESTORE (A,B,C)" IS THE SAME AS: 
RESTORE (C); 


RESTORE (B); 
RESTORE (A); 


<FETCH DESIGNATOR> ::5 FETCH (<1/O REFERENCE ADDRESS>, 
<PORT, CHANNEL, PRIORITY ADDRESS>, 
<RESULT DESCRIPTOR ADDRESS>) 


<1/O REFERENCE 


ADDRESS> ::= CEXPRESS ION? 
<PORT , CHANNEL ,. 

PRIORITY ADDRESS> ::= <ADDRESS GENERATOR> 
<ADDRESS GENERATOR>D ::= SEE "ADDRESS GENERATORS" 


C<RESULT DESCRIPTOR 
ADDRESS> ::= <ADDRESS GENERATOR> 


THE <FETCH DESIGNATOR) FETCHES THE RESULT OF AN I/O OPERATION. 
IF THERE IS A HIGH PRIORITY INTERRUPT, THEN THAT INTERRUPT WILL 
BE REPORTED. OTHERWISE, IF THE <I/O REFERENCE ADDRESS> IS 


i6=[2 > 


NON-ZERO, THEN ONLY AN INTERRUPT ON AN I/O DESCRIPTOR WITH THE — 
REFERENCE ADDRESS THE SAME AS THE <I/90 REFERENCE ADDRESS> WILL 
BE REPORTED. IF NOT FOUND, THE FIRST INTERRUPT ENCOUNTERED (IF 
ANY) WILL BE REPORTED. THE PORT (BIT 3), CHANNEL (BIT 3), AND 
PRIORITY (BIT 1) OF THE INTERRUPT ARE STORED FROM LEFT TO RIGHT 
IN THE LOW-ORDER 7 BITS OF <PORT, CHANNEL, PRIORITY ADDRESS>. 
THE 1/0 RESULT DESCRIPTOR REFERENCE ADDRESS IS STORED IN’ THE 
LOW-ORDER 24 BITS OF THE <RESULT DESCRIPTOR ADDRESS>. IF THERE 
WERE NO INTERRUPTS, THEN THESE TWO FIELDS WILL BE ZERO. 


HAL T 


ane voto Sai wee 


HALT DESIGNATOR> ::= HALT (<EXPRESSION>) 


THE <HALT DES!IGNATOR> CAUSES THE VALUE OF THE <EXPRESSION> TO BE 

MOVED TO THE M-MACHINE T-REGISTER. IF THE VALUE IS LONGER THAN 
e4 BITS, ONLY THE LOW-ORDER e4 BITS ARE MOVED. IF THE VALUE IS 
LESS THAN e% BITS, THE VALUE IS RIGHT JUSTIFIED AND LEADING 
ZEROES ARE ADDED. 


AFTER THE VALUE IS MOVED, AN M-MACHINE HALT IS EXECUTED. 


EXAMPLES: 


DECLARE X BIT(24); 
HALT (X:~<- HEX. SEQUENCE. NUMBER) ; 


DECLARE X BIT(e4); 
HALT (SUBBIT (HEX.SEQUENCE .NUMBER, 0, e4)); 


RE INSTATE 
CREINSTATE DESIGNATOR> ::=  REINSTATE (<REINSTATED PROGRAMD) | 


<REINSTATED PROGRAM> ::= <ADDRESS GENERATOR> 


THE <REINSTATED PROGRAM> IS ASSUMED TO DESCRIBE THE FIELD 
RS.COMMUNICATE.MSG.PTR OF RS.NUCLEUS OF THE PROGRAM TO BE 
REINSTATED (SEE DESCRIPTION OF THE RUN STRUCTURE IN "B1710 MCP 
REFERENCE MANUAL"). 


THE REINSTATING PROGRAM-S M-MACHINE STATE IS STORED IN THE 
APPROPRIATE PARTS OF ITS RS.NUCLEUS. THE ADDRESS OF THE 
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REINSTATING PROGRAM-S RS.NUCLEUS IS STORED IN THE REINSTATED 
PROGRAM-S RS.COMMUNICATE.LR. | 


THE PROGRAM WHOSE RS.COMMUNICATE.MSG.PTR IS DESCRIBED BY 
<REINSTATED PROGRAM> IS THEN REINSTATED. 


ACCESS-FPB 


ee 


<ACCESS-FPB 
DESIGNATOR? ::= <ACCESS-FPB IDENTIFIER> 
CCF ILE -SPECIFIERD, 
<SOURCE OR DESTINATION FIELD)) 


S<ACCESS-FPB IDENTIFIER>D ::= READ.FPB / WRITE.FPB 
<FILE SPECIFIERD ::= <FILE DESTIGNATOR> 
/ <FILE NUMBERD>D 
<FILE DESTGNATOR> ::= <FILE IDENTIFIERD 
/ <SWITCH FILE IDENTIFIER> (<EXPRESSION>) 
FILE NUMBER> ::= CEXPRESSION> 
<SOURCE OR DESTINATION 
FIELD> ::= <ADDRESS GENERATOR> 
<ADDRESS GENERATOR? ::= SEE “ADDRESS GENERATORS" 


THE FILE PARAMETER BLOCK OF THE FILE INDICATED BY THE <FILE 
SPECIFIER> IS READ INTO, OR WRITTEN FROM THE <SOURCE OR 
DESTINATION FIELD). 


NOTE THAT THE <SOURCE OR DESTINATION FIELD> SHOULD BE 1440 BITS 
IN LENGTH. 


REVERSE STORE 


,  ceaeiiiceannaliiiastentiitaesndiltemcliieen titnensditann tienda tie tna 


CREVERSE STORE 
DESIGNATOR> ::= REVERSE . STORE | 
(<ADDRESS GENERATOR LIST>,<EXPRESSION>) 


<ADDRESS GENERATOR } | 
LIST> i:= SEE “ADDRESS GENERATORS" 
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THE REVERSE.STORE OPERATION HAS THE EFFECT OF EVALUATING 
MULTIPLE | STORE OPERATIONS FROM LEFT TO RIGHT INSTEAD OF FROM 
RIGHT TO LEFT. SEE "THE REPLACE OPERATORS". 


FOR EXAMPLE: 


REVERSE.STORE (L,M,N,P,X+1); 
HAS THE SAME EFFECT AS: 


WITH THE REVERSE.STORE, HOWEVER, THE DESCRIPTOR FOR EACH 
<ADDRESS GENERATOR>D IN THE LIST IS DETERMINED ONLY ONCE. 


NOTE: 
REVERSE .STORE (L,M,N,P,X+1); 
IS NOT THE SAME AS 
| L<«-M«-N#P~<-X+1; 


READ CASSETTE 


Sele AEN athe fee Aare CONS «MMU -Onnsty ied? AOR Hint. aR aH 


<READ CASSETTE 
~DESIGNATOR>: := READ.CASSETTE (<DESTINATION SPECIFIER, 
<HASH. TOTAL SPECIFIER>, <RESULT SPECIFIER>) 


<DESTINATION SPECIFIERD::= <ADDRESS GENERATOR> 


<HASH. TOTAL SPECIFIER>D: := HASH. TOTAL 
/ NO.HASH. TOTAL 


<RESULT SPECIFIER>::= <ADDRESS GENERATOR> 


THE <READ CASSETTE DESIGNATOR> CAUSES THE NUMBER OF BITS 
SPECIFIED BY THE <DESTINATION SPECIFIER> TO BE READ FROM THE 
CONSOLE CASSETTE TO THE ADDRESS SPECIFIED BY THAT «DESTINATION 
SPECIFIER>. THIS NUMBER OF BITS MUST BE EQUAL TO THE RECORD 
SIZE MINUS THE HASH-TOTAL SIZE CIF IT IS PRESENT) OF 16 BITS. 
THE <HASH. TOTAL SPECIFIER> INDICATES WHEATHER OR NOT A 
HASH-TOTAL IS EXPECTED AT THE END OF THE RECORD. 


A VALUE OF 0 OR 1 WILL BE LEFT IN THE <RESULT SPECIFIERD 
INDICATING THAT THE HASH-TOTAL WAS INCORRECT OR CORRECT, 
RESPECTIVELY. : 
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OVERLAY 


<OVERLAY DESIGNATOR> OVERLAY (<EXPRESSION>) 


THE <EXPRESSION> WILL BE USED AS AN INDEX INTO THE INTERPRETER 
DICTIONARY BY THE INTERPRETER SWAPPER. THE INTERPRETER 
DICTIONARY ENTRY WILL SPECIFY THE ACTION TO BE TAKEN. SEE THE 
"B1710 MCP REFERENCE MANUAL". 


ACCESS OVERLAY 


<ACCESS OVERLAY 
DESIGNATOR> ::= <ACCESS OVERLAY IDENTIFIER> (<EXPRESSION>) 


<ACCESS OVERLAY 
IDENTIFIER> ::= READ.OVERLAY / WRITE.OVERLAY 


THE VALUE OF THE <EXPRESSION> IS ASSUMED TO BE A 76-BIT FIELD 
WITH THE FOLLOWING FORMAT FROM HIGH-ORDER TO LOW-ORDER: 


BITS CONTENTS 

0-3 EU = 0 (NOT USED) 

4-27 BASE RELATIVE BEGINNING ADDRESS 
28-51 BASE RELATIVE ENDING ADDRESS 

De=75 DISK ADDRESS (RELATIVE TO USER AREA) 


THE AREA DESCRIBED BY THE BEGINNING AND ENDING ADDRESSES IS READ 
TO, OR WRITTEN FROM THE USER DISK AT THE (RELATIVE) DISK 
ADDRESS GIVEN. 


ERROR COMMUNICATE 


<ERROR COMMUNICATE 
DESIGNATOR>D ::= ERROR.COMMUNICATE (<EXPRESSION>) 


THE VALUE OF THE EXPRESSION SHOULD BE OF THE FOLLOWING FORM: 
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e BITS 6 BITS 16 BITS e4 BITS 


—_ a cu Ge ese eee aww ww ow am am 
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WHERE N IS THE ERROR NUMBER, 


THE VALUE OF THE EXPRESSION WILL BE PUT ON THE EVALUATION STACK 
AS A DESCRIPTOR, AND AN MCP COMMUNICATE WILL BE PERFORMED. 


SORT 


~<SORT DESIGNATOR>D ::= 


<SORT INFORMATION TABLE 
SPECIFIER> ::= 


<ADDRESS GENERATOR> ::= 


<SORT KEY TABLE 
SPECIFIER> ::= 


<INPUT FILE DESIGNATOR :: 


<OUTPUT FILE 
DESIGNATOR> ::= 


<FILE DESIGNATORD: := 


THE <SORT DESIGNATOR> 


SORT (<SORT INFORMATION TABLE SPECIFIERD, 
<SORT KEY TABLE SPECIFIERD, | 

<INPUT FILE DESIGNATOR>, 

<OUTPUT FILE DESIGNATOR>) 

<ADDRESS GENERATOR> 


SEE "ADDRESS GENERATORS" 


<ADDRESS GENERATOR> 


<FILE DESIGNATOR> 


<FILE DESIGNATOR> 


<FILE IDENTIFIER>D 
/ <SWITCH FILE IDENTIFIER> (<EXPRESSION>) 


IS A COMMUNICATE WHICH REQUESTS THE 


TRANSFER OF RECORDS FROM THE INPUT FILE TO THE OUTPUT FILE 
ACCORDING TO THE SORT KEY TABLE. THE SORT INFORMATION TABLE 
INCLUDES CODES FOR SORT TYPE, HARDWARE AVAILABLE, AND OTHER 


OPTIONS. 


FOR FORMATTING SPECIFICATIONS OF THE SORT INFORMATION TABLE, 
REFER TO SORT DOCUMENTATION. 
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SORT . SWAP 


<SORT.SWAP DESIGNATOR> SORT.SWAP (<RECORD 1>,<RECORD e2>) 


<RECORD 1> <ADDRESS GENERATOR> 


<RECORD e2> <ADDRESS GENERATOR> 


WHILE THE <SORT SWAP DESIGNATOR> IS INTENDED TO BE USED BY THE 
SORT, ITS APPLICATION IS SUCH THAT IT MAY BE GENERALLY USEFUL. 


THIS DESIGNATOR ALLOWS THE USER TO "SWAP" OR EXCHANGE TWO 
RECORDS IN MEMORY WITHOUT ALLOCATING A THIRD AREA FOR STORING 
ONE OF THE RECORDS. 


SPECIFICALLY, THE RECORD POINTED TO BY <RECORD 1> IS EXCHANGED 
WITH THE RECORD POINTED TO BY <RECORD e>. 


NOTE: THE INTERPRETER BEING USED MUST CONTAIN’ THE 
SORT.SWAP OPERATOR. | 


INITIALIZE.VECTOR 


<INITIALIZE.VECTOR 
DESIGNATOR> ::= INITIALIZE.VECTOR (<TABLE ADDRESS>) 


<TABLE ADDRESS> ::= <ADDRESS GENERATOR> 


FOR USE BY SORT ONLY. 


THE <TABLE ADDRESS> POINTS TO THE TABLE CONTAINING THE VECTOR 
ADDRESS, THE VECTOR LEVEL-1 ADDRESS, THE KEY TABLE ADDRESS, AND 
THE VECTOR LIMIT ADDRESS. 
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THREAD. VECTOR 


<THREAD. VECTOR 


DESIGNATOR> ::= THREAD. VECTOR (<TABLE ADDRESS>, <INDEX>) 
<TABLE ADDRESS> ::= <ADDRESS GENERATOR> 
<INDEX> ::= | <EXPRESSION> 


FOR USE BY SORT ONLY. 


THE <TABLE ADDRESS> POINTS TO THE TABLE. CONTAINING ~~ THE 
INF ORMAT ION DESCRIBED UNDER "INITIALIZE.VECTOR". THE <INDEX> 
PROVIDES THE OFFSET FROM THE BEGINNING OF THE VECTOR TO THE 
NEXT RECORD TO BE USED FOR COMPARISON. 


DISABLE . INTERRUPTS 


<DISABLE. INTERRUPTS 
DESIGNATOR> ::= DISABLE. INTERRUPTS 


FOR MCP USE ONLY. 


THE <DISABLE INTERRUPTS DESIGNATOR> SUPPRESSES ALL INTERRUPTS 
UNTIL AN <ENABLE INTERRUPTS DESIGNATOR> IS ENCOUNTERED. 


NOTE THAT THIS CONSTRUCT CANNOT BE EXECUTED BY NORMAL STATE 
PROGRAMS. 


ENABLE. INTERRUPTS | 


<ENABLE. INTERRUPTS 
DESIGNATOR> ::= ENABLE. INTERRUPTS 


FOR MCP USE ONLY. 
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THE <ENABLE INTERRUPTS DESIGNATOR> CAUSES THE MCP TO RETURN TO 
THE NORMAL INTERRUPT-PROCESSING MODE AFTER’ THE <DISABLE 
INTERRUPTS DESIGNATOR> HAS CHANGED THAT MODE. SEE ABOVE 


NOTE THAT THIS CONSTRUCT CANNOT BE EXECUTED BY A NORMAL STATE 
PROGRAM. 


ACCESS FILE INFORMATION 
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<ACCESS FILE INFORMATION 
DESIGNATOR> ::= ACCESS.FILE.INFORMATION (<FILE DESIGNATOR>, 
<RETURN TYPE> ,<DESTINATION>D) 


<FILE DESIGNATORD ::= <FILE IDENTIFIER> 
/ <SWITCH FILE IDENTIFIER> (<EXPRESSION>) 


<RETURN TYPE> 


BIT / CHARACTER 


<DEST INATION> 


<ADDRESS GENERATOR> 


THE <ACCESS FILE INFORMATION DESIGNATOR> RETURNS THE END-OF-FILE 
POINTER AND THE DEVICE TYPE FROM THE FIB OF THE SPECIFIED FILE 
TO THE SPECIFIED DESTINATION. 


THE INFORMATION MAY BE RETURNED AS EITHER BIT OR CHARACTER. THE 
FORMAT IS AS FOLLOWS: 


O01 DESTINATION.FIELD, 
O02 EOF.POINTER BIT(24), %& CHARACTER(8) 
O02 DEVICE.TYPE BIT(6); & CHARACTER (2) 


TO ENSURE THAT THE FIB EXISTS, THIS COMMUNICATE SHOULD ONLY BE 
USED ON OPEN FILES. 


HARDWARE MONITOR 


<HARDWARE MONITOR 
DESIGNATOR>D ::= HARDWARE .MONI TOR (<EXPRESSION)) 


THE MONT TOR MICRO-OPCODE WILL BE EXECUTED USING THE LOW-ORDER 8 
BITS OF THE <EXPRESSION> AS ITS OPERAND. ALSO SEE APPENDIX IV. 
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SAVE STATE 


<SAVE STATE DESIGNATOR> ::= SAVE STATE 


THE STATE OF THE INTERPRETER WILL BE STORED IN RS.M.MACHINE (SEE 
"B1700 MCP REFERENCE MANUAL"). EXECUTION WILL THEN CONTINUE. 


DEBLANK 
<DEBLANK DESIGNATOR>: := DEBLANK (<FIRST CHARACTERD>) - 
<FIRST CHARACTER): := <IDENTIFIER> 


THE <FIRST CHARACTER> IS A SIMPLE IDENTIFIER WHICH DESCRIBES THE 
FIRST CHARACTER TO BE EXAMINED. DEBLANK REPEATLY INCREMENTS THE 
ADDRESS FIELD OF THE DESCRIPTOR FOR <FIRST CHARACTER> UNTIL 
<FIRST CHARACTER> DESCRIBES A NON-BLANK CHARACTER. | 


FREEZE PROGRAM 


—— <—— men <> amy cme <n ame ame Ci ae ae a cme 


<FREEZE-PROGRAM 
DESIGNATOR>: := | FREEZE .PROGRAM 


EXECUTION OF THIS FUNCTION WILL PREVENT THE PROGRAM FROM BEING 
MOVED IN MEMORY OR FROM BEING ROLLED OUT OF MEMORY. 


THAW PROGRAM 


< THAW-PROGRAM 
DESIGNATOR): := THAW .PROGRAM 


EXECUTION OF THIS FUNCTION WILL ALLOW THE PROGRAM TO BE ROLLED 
OUT OF MEMORY. IT WILL NOT FORCE IT TO BE ROLLED OUT. 
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DUMP FOR ANALYSIS 


<DUMP-F OR- 
ANALYSIS DESIGNATOR): := DUMP .FOR.ANALYSIS 


EXECUTION OF THIS FUNCTION WILL CAUSE A DUMPFILE TO BE CREATED 
AND EXECUTION TO COUTINUE. 


COMPILE CARD INFO 


<COMP ILE-CARD- 
INFO DESIGNATOR): := COMPILE .CARD. INFO 
(<CCI DESTINATION FIELD>)) 


<CCI DESTINATION FIELD>::= <ADDRESS GENERATOR> 


THIS FUNCTION IS INTENDED FOR USE BY THE COMPILERS’ ONLY. THE 
INFORMATION ON THE "COMPILE" CARD IS RETURNED IN THE FOLLOWING 
FORMAT: 


OBJECT NAME CHARACTER (30) 
EXECUTE TYPE (DECIMAL) CHARACTER (2) 


"O1" EXECUTE 

"02" COMPILE AND GO 

"03" COMPILE FOR SYNTAX 

"O04" COMPILE TO LIBRARY 

"05" COMPILE AND SAVE 

"06" GO PART OF COMPILE AND GO 
"O07" GO PART OF COMPILE AND SAVE 


COMPILER PACK IDENTIFIER CHARACTER (10) 
COMPILER INTERPRETER NAME CHARACTER (30) 
COMPILER INTRINSIC NAME CHARACTER (10) 
COMPILER PRIORITY (DECIMAL) CHARACTER (2) 
COMPILER CHARGE NUMBER (DECIMAL) CHARACTER (6) 
COMPILER JOB NUMBER (DECIMAL) CHARACTER (6) 
COMPILER2S FIRST NAME CHARACTER (10) 
OBJECT PROGRAM2S FIRST NAME CHARACTER (10) 
COMPILER MIX NUMBER (DECIMAL) CHARACTER (8) 
COMPILATION DATE ; BIT (36) 

BITS CONTENTS 

0-8 JULIAN DAY (BINARY) 

oe Ee, LAST TWO DIGITS OF YEAR (BINARY - BASE 1900) 


16-35 TIME (BINARY - TENTHS OF SECONDS) 
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COMMUNICATE 


<COMMUNICATE DESIGNATOR>::= COMMUNICATE (<EXPRESSION>) 


THE <EXPRESSION> IS EXPECTED TO BE A VALID COMMUNICATE MESSAGE. 
THIS IS INTENDED ONLY FOR EXPERIMENTAL TESTING OF COMMUNICATES. 
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MODIFY INSTRUCTION 
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<MODIFY INSTRUCT ION> <CLEAR STATEMENT > 
/ <BUMP STATEMENT> - 


/ <DECREMENT STATEMENT > 
<CLEAR STATEMENT> ::= CLEAR <ARRAY IDENTIFIER LIST> 


ARRAY IDENTIFIER LIST> ::= <ARRAY IDENTIFIER> 
/ <ARRAY IDENTIFIERD, 
<ARRAY IDENTIFIER LIST> 


AS THE SYNTAX INDICATES, THE <CLEAR STATEMENT> MAY ONLY "CLEAR" 
ARRAYS. IF THE ARRAY HAS BEEN DECLARED BIT OR FIXED, ZEROES ARE 
MOVED TO EACH ELEMENT. IF IT WAS DECLARED AS CHARACTER, BLANKS 
ARE MOVED TO EACH ELEMENT. PAGED ARRAYS MAY NOT BE "CLEARED". 


<BUMP STATEMENT ::= BUMP <ADDRESS VARIABLE><MODIFIERD 
<ADDRESS VARIABLE ::= SEE “ADDRESS VARIABLES" 
<MODIFIER> ::= <EMPTY> 


/ BY <EXPRESSION> 


<DECREMENT STATEMENT> : := DECREMENT <ADDRESS VARIABLE ><MODIF IER>D 


THE BUMP AND DECREMENT STATEMENTS PERFORM THE SAME FUNCTIONS AS 
THE TR COUNTERPARTS IN THE <EXPRESSION> (BUMPOR AND 
DECREMENTOR). SEE THOSE SECTIONS FOR SPECIFIC USAGE. SINCE 
THESE CONSTRUCTS EXIST AS STATEMENTS IN THEIR OWN RIGHTS, AND 
NOT MERELY AS PARTS OF THE <EXPRESSION>, THEY ARE INCLUDED 
HERE . 
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NULL STATEMENT 


<NULL STATEMENT) ::= 


THE SEMI-COLON IS CONSIDERED TO BE A STATEMENT IN ITS OWN RIGHT. 
IT MAY BE USED IN ANY CONSTRUCT WHERE THE SYNTAX REQUIRES THAT 
AN <EXECUTABLE STATEMENT> BE PRESENT, BUT THE USER WISHES TO 
EXECUTE NOTHING. IT IS MOST COMMONLY USED IN THE <IF STATEMENT> 
AND THE <CASE STATEMENT>, BUT MAY ALSO BE FUNCTIONAL IN_ THE 
READ, WRITE, AND SPACE STATEMENTS. REFER TO THE INDIVIDUAL 
DESCRIPTIONS FOR MORE SPECIFIC DETAILS. 


EXAMPLE : 
CASE <EXPRESSIOND; 
IF <EXPRESSION>D THEN; 
| ELSE <STATEMENT); 


DO; 

<EXECUTABLE STATEMENT LIST> 
END; 

END CASE; 


NOTICE THAT THE ABOVE <CASE STATEMENT > CONTAINS THREE 
<EXECUTABLE STATEMENTS>: AN <IF STATEMENT>, A <NULL STATEMENT>, 
AND A <DO GROUP>. IF THE VALUE OF THE <EXPRESSION> FOLLOWING 
"CASE" IS 1, THEN NOTHING IS EXECUTED. IN ADDITION, THE ";" 
FOLLOWING "THEN" IS A <NULL STATEMENT>. 
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FILE ATTRIBUTE STATEMENT (CHANGE STATEMENT) 


<FILE ATTRIBUTE 
STATEMENT> ::= CHANGE <FILE DESIGNATOR> 
TO (<DYNAMIC FILE ATTRIBUTE LIST>) 


<FILE DESIGNATOR> ::= <FILE IDENTIFIER> 
/ <SWITCH FILE IDENTIFIER> (<EXPRESSIOND) 


<DYNAMIC FILE 
ATTRIBUTE LIST> ::= <DYNAMIC FILE ATTRIBUTE> 
/ <DYNAMIC FILE ATTRIBUTE>, 
<DYNAMIC FILE ATTRIBUTE LIST> 


<DYNAMIC FILE 7 
ATTRIBUTE> ::= <DYNAMIC MULTI-FILE IDENTIFICATION PART> 
| <DYNAMIC FILE IDENTIFICATION PART> 
<DYNAMIC PACK.ID PART> 
<DYNAMIC DEVICE PART> 
<DYNAMIC TRANSLATION PART> 
<DYNAMIC FILE PARITY PART> 
<DYNAMIC VARIABLE RECORD PART> 
<DYNAMIC LOCK PART> 
<DYNAMIC BUFFERS PART> 
<DYNAMIC SAVE FACTOR PART> 
<DYNAMIC RECORD SIZE PART> 
<DYNAMIC RECORDS-PER-BLOCK PART> 
<DYNAMIC REEL NUMBER PART> 
<DYNAMIC NUMBER-OF-AREAS PART> 
<DYNAMIC BLOCKS-PER-AREA PART>” 
<DYNAMIC ALL-AREAS-AT-OPEN PART> 
<DYNAMIC AREA-BY-CYLINDER PART> 
<DYNAMIC EU.SPECIAL PART> 
<DYNAMIC EU. INCREMENTED PART> 
<DYNAMIC USE. INPUT.BLOCKING 
DESIGNATOR PART> 
<DYNAMIC SORTER-STATION PART> 
<DYNAMIC MULTI-PACK PART> 
<DYNAMIC END-OF-PAGE PART> 
<DYNAMIC OPEN-OPTION PART> 
<DYNAMIC REMOTE-KEY PART> 
<DYNAMIC NUMBER-OF-STATIONS PART> 
<DYNAMIC QUEUE-FAMILY-SIZE PART> 
<DYNAMIC FILE TYPE PART> 
<DYNAMIC WORK FILE PART> 
<DYNAMIC LABEL TYPE PART> 


MN ERR RRR RRR RR RRR RRR RRS 
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THE <FILE ATTRIBUTE STATEMENT> ALLOWS THE USER TO DYNAMICALLY 
CHANGE THE ATTRIBUTES OF HIS FILE DURING THE EXECUTION OF HIS 
PROGRAM. THIS STATEMENT MAY OCCUR AT ANY POINT IN THE PROGRAM, 
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BUT THE CHANGE WILL NOT BECOME EFFECTIVE UNTIL THE FILE IS 
OPENED. THAT IS, IF THE FILE IN QUESTION IS OPEN WHEN THE <FILE 
ATTRIBUTE STATEMENT> IS EXECUTED, THEN THE CHANGE WILL NOT 
OCCUR UNTIL THE FILE IS CLOSED AND RE-OPENED. 


EACH <DYNAMIC FILE ATTRIBUTE> SHOULD BE CONSISTENT WITH THE 
FORMAT AND RESTRICTIONS OF ITS COUNTERPART LISTED IN THE "FILE 
DECLARATIONS". EXCEPTIONS TO THIS ARE SPECIFICALLY STATED 
BELOW. 


IF A <DYNAMIC FILE ATTRIBUTE> IS OMITTED, THE ATTRIBUTE REMAINS 
AS IT WAS PREVIOUSLY SET. | 


IT SHOULD BE NOTED THAT THE FOLLOWING PROCESS IS MANDATORY WHEN 
CHANGING THE ATTRIBUTES OF AN OPEN FILE WHICH IS TO BE 
RE-OPENED: 


1. CLOSE THE FILE WITH AN ATTRIBUTE WHICH CAUSES SPACE FOR THE 
FIB TO BE RETURNED: I.E., "LOCK", "RELEASE", ETC. (CIF 
"CLOSE" IS USED WITHOUT ATTRIBUTES, THE FIB WILL NOT BE 
REBUILT FROM THE FPB, AND THE ATTRIBUTE WILL REMAIN 
UNCHANGED) . | | 


~@. CHANGE THE DESIRED ATTRIBUTES. 


3. OPEN THE FILE. 
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<DYNAMIC MULTI-FILE 
IDENTIFICATION PART> ::= MULT is Fale el Dae « 
<DYNAMIC MULTI-FILE IDENTIF ICATION> 


<DYNAMIC MULTI-FILE 


IDENTIFICATION> ::= <EXPRESSION> 

<DYNAMIC FILE | 

IDENTIFICATION PART> ::= FILE. ID“-<DYNAMIC FILE IDENTIFICATION> 
<DYNAMIC FILE 

(DENTIFICATION> ::= <EXPRESSION> 

<DYNAMIC PACK.ID PART> ::= PACK. ID 


<DYNAMIC PACK IDENTIFICATIOND 


<DYNAMIC PACK 
IDENTIFICATION>D ::= <E XPRESS ION> 


THE <EXPRESSION>DS OF THESE FOUR ATTRIBUTES ARE EACH ASSUMED TO 
BE CHARACTER STRINGS. IF THEY ARE BITS, HOWEVER, THEY WILL BE 
CONVERTED TO CHARACTERS IN THE FOLLOWING MANNER: 


L. THE BITS ARE LEFT JUSTIFIED. 

2, TRAILING BLANKS ARE APPENDED. HOWEVER, IF THE 
BITS ARE NOT A MULTIPLE OF 8, THEN THE STRING 
WILL APPEAR TO BE INVALID CHARACTERS. 


EXAMPLE: ~ 
CHANGE F TO (FILE.ID*@FOE®@); 


WILL RESULT IN THE <FILE IDENTIFICATIOND 
BEING EQUAL TO: 


@F OEYOX ON O4O4O04O40404@ 


<DYNAMIC DEVICE PART 


<DYNAMIC DEVICE 
SPECIFIER> ::= 
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DEVICE<-<DYNAMIC DEVICE SPECIFIER> 


<EXPRESSION> 


THE LOW-ORDER 10 BITS OF THE <EXPRESSION> MUST BE CODED AS 


FOLLOWS 


HARDWARE IS THE LOW-ORDER SIX): 


DEVICE 


HED Mie ARLE tA ae CRU 


CARD 

MULTI .FUNCTION.CARD 
— TAPE 

TAPE .9 

TAPE .7 

TAPE .PE 

TAPE .NRZ 

DiSk 


DISK .PACK 

DISK:.F ILE | 
DISK .PACK.CENTURY 
DISK.PACK.CAELUS _ 
PRINTER 


PRINTER FORMS 
CARD. READER 

CARD. PUNCH 
CARD.PUNCH FORMS 
PUNCH 

PUNCH FORMS 
PUNCH.96 
PUNCH.96 FORMS 
READER.PUNCH 
READER.PUNCH FORMS 
READER.PUNCH.PRINTER 


READER.PUNCH.PRINTER FORMS 


PUNCH.PRINTER 
PUNCH.PRINTER FORMS 
PAPER. TAPE .PUNCH 


PAPER. TAPE .PUNCH FORMS 


PAPER, TAPE .READER 
READER. 96 


HARDWARE 


i mee eR OR OD oe ee el 


Sout 


Ol U1 WW Wm = Mf mM fom © 


VARIANT 


Lamad 


0 = SERIAL 

1 = RANDOM | 
(SAME AS DISK) 
(SAME AS DISK) 


(SAME AS DISK) 


(SAME AS DISK) ; 


0 = BACKUP TAPE OR DISK 


OnrnouwrlwanMh- 
+ HH RH HH Wt 


= BACKUP TAPE 

BACKUP DISK 

BACKUP TAPE OR DISK 
HARDWARE ONLY 
BACKUP TAPE ONLY 
BACKUP DISK ONLY 
BACKUP TAPE OR DISK 
PRINTER VARIANT 


PRINTER) 


PRINTER FORMS) 


PRINTER) | 
PRINTER FORMS) 
PRINTER) 
PRINTER FORMS) 
PRINTER) 
PRINTER FORMS) 
PRINTER) 


PRINTER FORMS) 


PRINTER) 
PRINTER FORMS) 
PRINTER) 


PRINTER FORMS) 


(WHERE THE VARIANT IS THE HIGH ORDER 4 BITS, AND THE 


ONLY 


SORTER.READER 
READER .SORTER 
SPO 

CASSETTE 
REMOTE 

QUEUE 

MF CU 


16-e9 
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<DYNAMIC TRANSLATION 
PART> ::= ‘TRANSLATION «= 
| <DYNAMIC TRANSLATION SPECIFIER> 


<DYNAMIC TRANSLATION 
SPECIFIER> ::= <EXPRESSION> 


THE LOW-ORDER 3 BITS OF THE <EXPRESSION> DETERMINES THE 
TRANSLATION AS FOLLOWS: | ee 


000 = EBCDIC 
001 = ASCII 
010 = BCL 


<DYNAMIC SORTER STATION 
PART> ::= SR.STATION = 
<DYNAMIC SORTER STATION SPECIFIER> 


<DYNAMIC SORTER 
STATION SPECIFIER> ::= <EXPRESSION> 


THE LOW-ORDER 3 BITS OF THE <EXPRESSION> DETERMINES THE 
TRANSLATION AS FOLLOWS: | | 


FIRST STATION 
SECOND STATION 
BOTH STATIONS 


001 
010 
111 


iow & 


<DYNAMIC OPEN- 
OPTION PART): := OPEN.OPTION 
ae 79 <DYNAMIC OPEN. PON SPECIFIER> 


<DYNAMIC OPEN- 
OPTION SPECIFIER>::= <EXPRESSION) 


THE LOW-ORDER 12 BITS OF THE EXPRESSION DETERMINE THE TYPE OF 
OPEN AS FOLLOWS (BITS ARE NUMBERED FROM LEFT TO RIGHT WITHIN 
THE 12): | | 


—- OY OnNrFNWwne- oOo; 


+ 


—" 


HoH GF HoH HW Tf ot 


Ht 


FUNCTION CIF 1) 
INPUT 

OUTPUT 

NEW 

PUNCH 

PRINT 

NO.REWIND, INTERPRET 
REVERSE, STACKERS 
LOCK 

LOCK. OUT 

CODE. FLEE 
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<DYNAMIC PARITY PART> 


<DYNAMIC PARITY 
SPECIFIER>D ::= 


<DYNAMIC VARIABLE 
RECORD PART) ::= 
<DYNAMIC VARIABLE 
RECORD SPECIFIER> 
~ <DYNAMIC LOCK PART> 


<DYNAMIC LOCK 
SPECIFIER> ::= 


<DYNAMIC ALL-AREAS- 
AT-OPEN PART> ::= 
<DYNAMIC ALL-AREAS- 
AT-OPEN SPECIFIER> 
<DYNAMIC AREA-BY 
CYLINDER PART> ::= 
<DYNAMIC AREA-BY- 
CYLINDER SPECIFIER> 
<DYNAMIC USE. INPUT. 
BLOCKING PART> ::= 
<DYNAMIC USE. INPUT. 
BLOCKING SPECIFIER> 
<DYNAMIC END-OF - 
PAGE PART> ::= 
<DYNAMIC END-OF- 
PAGE SPECIFIER> ::= 
<DYNAMIC MULT 1 - 
PACK PART: | 


assaiaes MULTI- 
PACK SPECIFIERD ::= 


3] 
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PARITY<DYNAMIC PARITY SPECIFIER> 
<EXPRESSIOND 


VARIABLE <- 
<DYNAMIC VARIABLE RECORD SPECIFIER> 


<EXPRESSIOND 


LOCK <DYNAMIC LOCK SPECIFIER> 


<EXPRESSION> 


ALL. AREAS. AT.OPEN + 


<DYNAMIC ALL-AREAS-AT-OPEN SPECIFIER> 
<EXPRESSION 


AREA.BY.CYLINDER «+ 
<DYNAMIC AREA-BY-CYLINDER SPECIFIER> 


“EXPRESSION? 


USE. INPUT .BLOCK ING « 
<DYNAMIC USE. INPUT .BLOCKING SPECIFIER> 


<EXPRESSION> 


END.OF .PAGE.ACTION << | 
<DYNAMIC END-OF-PAGE SPECIFIER> 


<EXPRESS I ON> 


MULTI .PACK «- | 
<DYNAMIC MULTI-PACK SPECIFIER> 


<EXPRESS I ON> 


<DYNAMIC REMOTE- 
KEY PART>::= 


<DYNAMIC REMOTE- 
KEY SPECIFIERD::= 
<DYNAMIC WORK 


FILE PART: := 


CDYNAMIC WORK 
“TLE SPECIFIERD::= 
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REMOTE-KEY <- 
<DYNAMIC REMOTE-KEY SPECIFIERD> 


<EXPRESSION>D 


WORK .F ILE + 
<DYNAMIC WORK FILE SPECIFIER> 


<EXPRESSION> 


ONLY THE LOW-ORDER BIT OF EACH OF THE ABOVE <EXPRESSION>DS IS° 
USED TO DETERMINE THE VALUE OF THE ATTRIBUTE. THE CODE 


DEFINITIONS ARE AS FOLLOWS: 
PARITY 
VARIABLE 
LOCK 
ALL .AREAS.AT.OPEN 
AREA.BY.CYLINDER 


USE. INPUT .BLOCKING 
END .OF .PAGE .ACTION 
MULTI .PACK 
REMOTE KEY 


WORK .F ILE 


— Oe OO = Oe Oo = Oe & 


Hou won tt wm HOU tt U lt & 


we © 


HoH it Hon 


fo on oF 


ODD 

EVEN 

FIXED 

VARIABLE 

NOT LOCKED 

LOCKED 

ALLOCATE AREAS AS NEEDED 

ALLOCATE ALL SPACE AT OPEN TIME 

PUT AREA ANYWHERE ON DISK | 

ONE AREA PER CYLINDER AT BEGINNING 
TAKE ATTRIBUTES FROM FILE DECLARATION 
TAKE ATTRIBUTES FROM DISK FILE HEADER 
SEE FILE ATTRIBUTES 

NO DETECTION OF END-OF-PAGE 

BRANCH TO <EOF PART> OF <WRITE 
STATEMENT> AT END OF PAGE ON 

PRINTER FILE 

PLACE FILE ON MULTIPLE DISK PACKS 
PLACE FILE ON SINGLE DISK PACK 
REMOTE KEY IS PRESENT ON ALL READS 
AND WRITES TO THE FILE 

REMOTE KEY IS NOT PRESENT 

INSERT JOB NUMBER IN FILE IDENTIFIER 
LEAVE FILE IDENTIFIER ABOVE 
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<DYNAMIC EU, SPECIAL 
PART> ::= | EU.SPECIAL 
<DYNAMIC EU.SPECIAL SPECIFIER> 
/ EU.SPECIAL+ 
<DYNAMIC EU.SPECIAL SPECIFIER>, 
EU.DRIVE <- 
<DYNAMIC EU.DRIVE SPECIFIER> 


<DYNAMIC EU.SPECIAL | 
SPECIFIER> ::= | <EXPRESSION> 


<DYNAMIC EU.DRIVE 
SPECIFIER> ::= <EXPRESSION> 


<DYNAMIC EU. : 
INCREMENTED PART> ::= EU. INCREMENTED + 
- <DYNAMIC EU. INCREMENTED SPECIFIER> 
7 EU. INCREMENTED + 
DYNAMIC EU. INCREMENTED SPECIFIERD, 
EU.INCREMENT <- 
<DYNAMIC EU. INCREMENT SPECIFIER> 


<DYNAMIC EU. INCREMENTED 


SPECIFIER> ::= <EXPRESSION> 
<DYNAMIC EU. 
INCREMENT SPECIFIER> ::= C<EXPRESS ION> 


THE LOW-ORDER BIT OF THE EU.SPECIAL AND EU. INCREMENTED 

SPECIFIERS SERVES TO INDICATE WHETHER OR NOT THE ATTRIBUTE IS 
SET (O=OFF, 1=0ON). IF THE ATTRIBUTE IS OFF, THEN INCLUSION OF 
THE EU.DRIVE AND EU. INCREMENT SPECIFIERS IS UNNECESSARY. | 


IF THESE ATTRIBUTES ARE SET ON, THEN THE ORIVE AND INCREMENT 
PARTS SHOULD BE INCLUDED, AND SHOULD CONF ORM TO THE 
SPECIFICATIONS IN THE "FILE DECLARATIONS". IF OMITTED, THE 
<DYNAMIC EU.DRIVE SPECIFIER> IS NOT CHANGED. IF THE <DYNAMIC 
EU.INCREMENT SPECIFIER> HAS NEVER BEEN SET (I.E. IT IS QO), 
THEN IT IS SET TO ONE; OTHERWISE, IT TOO REMAINS UNCHANGED. 


<DYNAMIC BUFFERS PART> 


<DYNAMIC NUMBER 
OF BUFFERS> ::= 


<DYNAMIC SAVE 
FACTOR PART> ::= 


<DYNAMTIO SAVE FACTOR> 


<DYNMAMIC RECORD 
Sizi PART) ::= 


i 


COVYANMIC RECORD SIZE> 
SDYNAMIC RECORDS- 
PER-BLOCK PART> ::= 
<DYNAMIC RECORDS- 
PER-BLOCK> ::= 


CDYNAMIC REEL 
NUMBER PART> ::= 


CDYNAMIC REEL NUMBERD ::= 
<DYNAMIC NUMBER-—OF - 
AREAS PART? ::= 
<DYNAMIC NUMBER- 

OF -AREAS> ::= 

DYNAMIC BLOCKS-PER- 
AREA PART> ::= | 
<DYNAMIC BLOCKS-PER 
AREA> ::= 

<DYNAMIC QUEUE~-FAMILY- 
SIZE PART>::= 

<DYNAMIC QUEUE - 
FAMILY-SIZE>::= 


<DYNAMIC NUMBER-OF - 
STATIONS PART): := 


16-35 
BUFFERS<-<DYNAMIC NUMBER OF BUFFERS> 
<EXPRESSION> 


SAVE*<DYNAMIC SAVE FACTOR> 


<EXPRESSTON> 


RECORD.SIZE*-<DYNAMIC RECORD SIZE> 


<EXPRESSTION> 


RECORDS .PER. BLOCK «- 
<DYNAMIC RECORDS-PER-BLOCK> 


<EXPRESSI OND 


REEL@-<DYNAMIC REEL NUMBER> 


<EXPRESSION> 


NUMBER. OF . AREAS + 
<DYNAMIC NUMBER-OF -AREAS> 


CEXPRESSION> 


BLOCKS.PER.AREA «- 
<DYNAMIC BLOCKS~PER-AREA> 


<EXPRESSION> 


QUEUVE-FAMILY-SIZE < 
<DYNAMIC QUEUE-FAMILY-SIZE> 


<EXPRESSION> 


NUMBER-OF ~STAT IONS | 
<DYNAMIC NUMBER-OF-STATIONS SPECIFIER> 


<DYNAMIC NUMBER-OF - - | 
STATIONS SPECIFIER>::= <EXPRESSION> 


<DYNAMIC FILE 
TYPE PART>::= FILE.TYPE «— 
DYNAMIC FILE TYPE SPECIFIER> 
<DYNAMIC FILE | 
TYPE, SPECIFIER>: := <EXPRESSION> 
THE VALUE OF THE EXPRESSION DETERMINES THE FILE TYPE: 


VALUE TYPE © 


O- DATA 
7 INTERPRETER 
8 CODE 
9 DATA 


<DYNAMIC LABEL 
TYPE PART>::= LABEL - TYPE 
— | <DYNAMIC LABEL TYPE SPECIF IER? 


<DYNAMIC LABEL - | | 
TYPE SPECIFIER>::= <EXPRESSION> 


THE VALUE OF THE EXPRESSION DETERMINES THE LABEL TYPE. 


VALUE TYPE 
0 BURROUGHS STANDARD LABEL 
i UNLABELED 


THE ABOVE <EXPRESSION>S RETURN A BIT STRING WHICH SHOULD 
CONSISTENT WITH THE FORMATS AND RESTRICTIONS LISTED IN 
"FILE DECLARATIONS". 
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BE 
THE 
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STOP STATEMENT 


<STOP STATEMENT> ::= - STOP 
/ STOP <EXPRESSION> 


THE <STOP STATEMENT> IS A COMMUNICATE TO THE MCP THAT THE 
PROGRAM HAS FINISHED. IT SHOULD NOT BE CONFUSED WITH "FINI" 
WHICH IS THE FINAL STATEMENT IN THE PROGRAM. 


"STOP <EXPRESSION>" IS INTENDED FOR USE BY THE COMPILERS ONLY. 


THE <EXPRESSION> COMMUNICATES THE NUMBER OF SYNTAX ERRORS TO 
THE MCP. : 
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ZIP STATEMENT 


<ZIP STATEMENT> ::= ZIP <EXPRESSION> 


THE <ZIP STATEMENT> ALLOWS THE USER TO PASS CONTROL INSTRUCTIONS 
TO THE MCP. THE <EXPRESSION> SHOULD GENERATE A CHARACTER STRING 

WHOSE VALUE IS A VALID MCP CONTROL STATEMENT AS DEFINED IN THE 

"B1700 SOFTWARE OPERATIONAL GUIDE". 
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SEARCH STATEMENT 


<SEARCH STATEMENT> 


<SEARCH PART > 
/ <SEARCH PART>; <FILE MISSING PART> 
<SEARCH PART>; <FILE LOCKED PART> 
/ <SEARCH PART>; <FILE MISSING PART> 
<FILE LOCKED PART> 


~ 


<SEARCH PART> ::= SEARCH.DIRECTORY (<SEARCH OBJECT>, 
<SEARCH RESULT>,<SEARCH RESULT MODE >) 


<SEARCH OBJECT > <ADDRESS GENERATOR> 


<SEARCH RESULT > <ADDRESS GENERATOR> 


<SEARCH RESULT MODE> ::= BIT / CHARACTER 
<FILE MISSING PART> ::= ON FILE.MISSING <EXECUTABLE STATEMENT > 
<FILE LOCKED PART> ::= ON FILE.LOCKED <EXECUTABLE STATEMENT > 


THE <SEARCH STATEMENT> ALLOWS THE USER TO EXTRACT CERTAIN 
INFORMATION CONTAINED IN THE DISK FILE HEADER SPECIFIED BY THE 
<SEARCH OBJECT>. 


THE <SEARCH OBJECT> IS EXPECTED TO BE 30 CHARACTERS IN LENGTH 
WHERE THE FIRST 10 CHARACTERS ARE THE PACK IDENTIFICATION, THE 
SECOND 10 CHARACTERS ARE THE MULTI-FILE IDENTIFICATION, AND THE 
SRD 10 ARE THE FILE IDENTIFICATION. FILE NAMES LESS THAN 10 
CHARACTERS MUST BE LEFT-JUSTIFIED IN THEIR RESPECTIVE FIELDS 
WITH TRAILING BLANKS APPENDED. IF ONLY ONE FILE NAME EXISTS, 
THAT NAME SHOULD BE LEFT-JUSTIFIED IN THE MULTI-F ILE 
IDENTIFICATION FIELD, AND THE FILE IDENTIFICATION SHOULD BE 
BLANK. 


THE <SEARCH RESULT> SPECIFIES THE RECEIVING FIELD AND SHOULD BE 
360 BITS LONG IF BIT MODE IS SPECIFIED, OR 59 BYTES IF 
CHARACTER MODE IS SPECIFIED. 


THE INFORMATION [S RETURNED IN THE FOLLOWING FORMAT: 


01 


FILE.HEADER.FORMAT, 


OPEN. TYPE 
NO.USERS 
RECORD.SIZE 
RECORDS .PER. BLOCK 
EOF .POINTER | 
SEGMENTS .PER. AREA 
USER .OPEN. OUTPUT 
PILE .TYRE 
PERMANENT .FLAG 
BLOCKS.PER.AREA 
AREAS.REQUESTED 
AREA .COUNTER 

SAVE .FACTOR 
CREATION.DATE 
LAST.ACCESS.DATE 


BIT 
BIT 
BIT 
ana 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 


(24), 
(24), 
(24), 
(24), 
(24), 
(24), 
(24), 
(eo) 5 
(24), 


Mets 


(24), 


Cet) s. . 


(24), 
eo). 
(24), 


DE BRE RE RE DE DE HE DE BE FE JE JE dE de e 


NOTE: THIS FORMAT MAY BE SUBJECT TO CHANGE. 


CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 


~ CHARACTER 


CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
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(1) 
(2) 
(4) 
(4) 
(8) 
(8) 
(1) 
(2) 
(2) 
(6) 
(3) 
(3) 
(3) 
(6) 
(6) 


THE <FILE MISSING PART> AND <FILE LOCKED PART> ALLOW THE USER TO 
SPECIFY THE COURSE OF ACTION SHOULD EITHER OF THESE CONDITIONS 


ARISE. 
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ACCESS FILE HEADER STATEMENT 


<ACCESS FILE HEADER 

STATEMENT> ::= <ACCESS FILE HEADER PART>; 

/ <ACCESS FILE HEADER PART>; 
<FILE MISSING PART> 

/ <ACCESS FILE HEADER PART>; 
<FILE LOCKED PART > 

/ S<ACCESS FILE HEADER PART>; 
<FILE MISSING PART> 
<FILE LOCKED PART> 


<ACCESS FILE HEADER 
PART> ::= READ.FILE.HEADER | 

(<FILE NAME>, <DESTINATION FIELD>) 
/ WRITE.FILE.HEADER 


(<FILE NAME>, <SOURCE FIELD>) 


<FILE NAMED ::= 


<DESTINATION FIELD> ::= 


<SOURCE FIELD> ::= 


<ADDRESS GENERATOR> 


<ADDRESS GENERATOR> 


<ADDRESS GENERATOR> 


<FILE MISSING PART> ::= ON FILE.MISSING <EXECUTABLE STATEMENT > 


<FILE LOCKED PART> ::= ON FILE.LOCKED <EXECUTABLE STATEMENT > 


THE <ACCESS FILE HEADER STATEMENT> 
SYSTEMS PROGRAMS ONLY. 
OR WRITE A FILE HEADER. 


IS INTENDED FOR USE IN 
IT ENABLES THE PROGRAMMER TO EITHER READ 


THE <FILE NAME> IS EXPECTED TO BE A 30-CHARACTER FIELD WHERE THE 
FIRST 10 CHARACTERS ARE THE PACK.ID, THE SECOND 10 CHARACTERS 

ARE THE MULTI-FILE IDENTIFICATION AND THE THIRD 10, THE FILE 

IDENTIFICATION. FILE NAMES LESS THAN 10 CHARACTERS ARE 

LEFT-JUSTIFIED IN THEIR RESPECTIVE FIELDS. IF ONLY ONE FILE 

NAME EXISTS, IT IS LEFT-JUSTIFIED IN THE MULTI-FILE 

IDENTIFICATION, AND THE FILE IDENTIFICATION SHOULD BE SET TO 

BLANKS. 


THE <SOURCE FIELD> OR <DESTINATION FIELD> SPECIFIES, 
RESPECTIVELY, THE SENDING OR RECEIVING FIELD, AND IS EXPECTED 
TO BE 576 TO 43e0 BITS IN LENGTH DEPENDING UPON THE NUMBER OF 
AREAS ALLOCATED. INFORMATION IS PASSED IN THE FILE HEADER 
FORMAT. REFER TO THE "“B1700 MCP MANUAL" FOR SPECIFICS. 
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THE <FILE MISSING PART> AND <FILE LOCKED PART> ENABLE THE 
PROGRAMMER TO SPECIFY THE COURSE OF ACTION SHOULD EITHER OF 
THESE CONDITIONS ARISE. 


NOTE THAT EXTREME CAUTION IS ADVISED WHEN WRITING A FILE HEADER. 
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SEND STATEMENT 


<SEND STATEMENT> ::= <SEND PART>; 

/ <SEND PART>; <QUEUE FULL PART> 
<SEND PART>; <INVALID REQUEST PART > 
/ <SEND PART>; <QUEVE FULL PART> 

<INVALID REQUEST PART > 


™ 


<SEND PART> ::= SEND <MESSAGE SOURCE> TO <QUEUE> 

<MESSAGE SOURCE> ::= <ADDRESS GENERATOR> 

<QUEVE> ::= <EXPRESS ION> 

<QUEVUE FULL PART> ::= ON Q.FULL <EXECUTABLE STATEMENT > 

<INVALID REQUEST PART> ::= ON INVALID.REQUEST <EXECUTABLE STATEMENT > 


THE <SEND STATEMENT> ALLOWS THE USER TO COMMUNICATE WITH OTHER 
PROGRAMS BY PLACING A MESSAGE IN A SPECIFIED QUEVE WHICH MAY BE 
ACCESSED BY THE OTHER PROGRAMS WITH THE <RECEIVE STATEMENT>. 


THE <MESSAGE SOURCE> SPECIFIES THE MESSAGE TO BE PLACED IN’ THE 
QUEUE. IT IS ENTERED AT THE END OF THE QUEVE AND MAY BE A 
MAXIMUM OF 65535 BITS IN LENGTH. 


THE <QUEVE> SPECIFIES THE 2O-CHARACTER NAME OF THE QUEUE, THE 
NAME THAT MUST BE USED BY ALL PROGRAMS ACCESSING THAT QUEUE. 
THE FORMAT OF THE QUEUE NAME IS THE SAME AS A FILE HEADER. THAT 
IS, THE FIRST 10 CHARACTERS IS THE QUEVE FAMILY NAME, AND THE 
SECOND 10 IS THE SUB-QUEVE NAME. NAMES LESS THAN 10 CHARACTERS 
ARE LEFT JUSTIFIED IN IN THEIR RESPECTIVE FIELDS. IF ONLY ONE 
NAME EXISTS, IT IS LEFT JUSTIFIED IN THE FAMILY QUEUE FIELD, 
AND SUB-QUEVUE IS SET TO BLANKS. 


THE <QUEVE FULL PART> WILL BE EXECUTED IF THE MAXIMUM QUEUE SIZE 
HAS BEEN REACHED. IF UNSPECIFIED, A QUEUE MAY CONTAIN 1023 
MESSAGES. THE MAXIMUM NUMBER OF QUEUE MESSAGES MAY BE SET TO 
ANY AMOUNT LESS THAN 1023 WITH THE <QUEVE SIZE DESIGNATOR>. THE 
CURRENT POPULATION OF A QUEUE MAY BE OBTAINED WITH THE <QUEUE 
POPULATION DESIGNATOR>. FOR FURTHER DETAILS, SEE THE 
APPROPRIATE SECTIONS. 


THE <INVALIOD REQUEST PART> WILL BE EXECUTED IF THE <SEND PART> 
CANNOT, FOR SOME REASON, BE RECOGNIZED BY THE MCP. 


NOTE: 


SINCE MESSAGES ARE SENT TO THE END OF THE 
QUEUE AND RECEIVED FROM THE TOP, IT IS _ THE 
PROGRAMMER-S RESPONSIBILITY TO ENSURE THAT 
MESSAGES ARE RECEIVED IN THE CORRECT ORDER. 
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RECEIVE STATEMENT 


vee nies Mian inne aap see Met wie leah NAA GEER ee Gee tS eT cane mine 


RECEIVE STATEMENT) ::= CRECEIVE PART > ; : 
/ “RECEIVE PART>; <QUEUE EMPTY PART> 
«RECEIVE PART>; <INVALID REQUEST PART> 
/ SRECETVE PART>; <QUEUE EMPTY PART> 
<INVALIOD REQUEST PART> 


™ 


CRECEIVE FART>D ;::= RECEIVE <MESSAGE DESTINATION>D 
FROM <QUEUE> 


ul 


<MESSAGE DESTINATION> <ADDRESS GENERATOR> 


QUEUE > 225 <EXPRESSION> 
<QUEUE EMPTY PART> ::= ON Q.EMPTY <EXECUTABLE STATEMENT > 


“INVALID REQUEST PART>D ::= ON INVALID.REQUEST <EXECUTABLE STATEMENT > 


THE <RECEIVE STATEMENT> ALLOWS THE USER TO ACCEPT MESSAGES FROM 
OTHER PROGRAMS BY RECEIVING THE FIRST MESSAGE FROM’ THE 
SPECIFIED QUEUE. 


THE <MESSAGE DESTINATION> SPECIFIES THE FIELD RECEIVING’ THE 
MESSAGE. <QUEUE> SPECIFIES THE QUEUE NAME AND SHOULD CONFORM TO 
THE SPECIFICATIONS DESCRIBED UNDER "SEND STATEMENT". IF ONLY 
ONE NAME 15 SPECIFIED, IT WILL BE TAKEN AS THE FAMILY NAME ANDO 
THE EARLIEST MESSAGE IN ANY QUEUE HAVING THAT FAMILY NAME WILL 
BE SELECTED. OTHERWISE THE FIRST MESSAGE IN THE SPECIFIED QUEUE 
WILL BE SELECTED. | 


THE <QUEVE EMPTY PART> IS EXECUTED WHEN THE DESIGNATED QUEUE HAS 
NO MESSAGES. IF THe DESIGNATED QUEUE IS NON-EXISTENT, THE QUEUE 
IS CREATED, AND <QUEUE EMPTY PART> IS EXECUTED. | 


THE <INVALID REQUEST PART> IS EXECUTED WHEN THE <RECEIVE PART> 
CANNOT, FOR SOME REASON, BE RECOGNIZED OR EXECUTED BY THE MCP. 


NOTE: IT IS) THE PROGRAMMER-S RESPONSIBILITY TO. 
ENSURE THAT HE RECEIVES THE CORRECT MESSAGE. 
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ARRAY PAGE TYPE STATEMENT 


sme IKK) ee cine “Wi ay stem sme aly em “SHE sine Sin SEN SEND GRD shally Cue ene SOD any SEN sul wenee cee 


<ARRAY PAGE TYPE | | a 
STATEMENT> ::= <ARRAY PAGE TYPE DESIGNATOR> 
(<PAGED ARRAY NAME>,<PAGE NUMBER>) 


<ARRAY PAGE TYPE 
DESIGNATOR>D ::= MAKE .READ. ONLY 
| / MAKE.READ.WRITE 


<PAGED ARRAY NAME> ::= <IDENTIFIERD 


<PAGE NUMBER> ::= <EXPRESS ION> 


THE <ARRAY PAGE TYPE STATEMENT> ALLOWS THE USER TO MARK CERTAIN 
PAGED ARRAY PAGES AS READ-ONLY. WHEN THIS IS DONE, A PAGE WILL 
NOT BE WRITTEN OUT TO DISK EVERY TIME IT IS OVERLAYED. 


MAKE .READ.WRITE ALLOWS THE USER TO CHANGE INFORMATION ON A PAGED 
ARRAY, AND TO HAVE THAT ARRAY WRITTEN ON OISK WHEN IT IS 
OVERLAYED. IT IS ONLY NECESSARY TO SPECIFY MAKE . READ .WRITE 
AFTER A MAKE . READ.ONLY SPE TG PST ON: 


IT 1S THE PROGRAMMER-S RESPONSIBILITY TO ENSURE THAT THE 
INFORMATION IN A PAGE MARKED READ-ONLY IS NOT CHANGED. IN 
ADDITION, THE USER IS RESPONSIBLE FOR GUARANTEEING CORRECT PAGE 
NUMBER SPECIFICATIONS. THERE IS NO SYNTAX CHECK FOR EITHER. 


EXAMPLE: 
DECLARE PAGED (32) P (1024) BIT(30), Tl BIT(e4); 
Tlw1; 
DO FOREVER; 
MAKE .READ.ONLY (P, BUMP T1); 
IF Tl = 15 THEN UNDO; | 


END; 


MAKE .READ.WRITE (P, 0); 
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COROUTINE STATEMENT 


a nape eRe mene STEEN een seem queen nm mu CEN Gem ume, ee wemee <i eve seme mene 


<COROUTINE STATEMENT>::= <COROUTINE ENTRY STATEMENT > 
/ <COROUTINE EXIT STATEMENT> 

<COROUT INE 

ENTRY STATEMENT): := ENTER .COROUT INE 


(<COROUTINE TABLE SPECIFIER>) 


<COROQUT INE 
¢ 


PABLE SPECIFIER>:: <ADDRESS GENERATOR> 


4a ae 


CCOROUT TNE 
EXIT STATEMENT>::= EXIT .COROUTINE | 
(<COROUTINE TABLE SPECIFIER>D) 


THE <COROUTINE TABLE SPECIFIER> ASSOCIATED WITH ENTER.COROUT INE 
AND EXIT. COROUTINE IS ASSUMED TO DESCRIBE A TABLE WITH THE 
FOLLOWING FORMAT: 


DECLARE 
Ol TABLE 
,02 NUMBER.OF .ENTRIES BIT (4) 
,02 ENTRY.ADDRESS BIT(32) 
02 PPS.COPY(16) BIT(3e) 
A. ENTER. COROUTINGE: THE <COROUTINE TABLE SPECIFIER> IS ASSUMED 


TO HAVE THE FORMAT DESCRIBED ABOVE. THE CURRENT CODE 
ADDRESS 15 PUSHED ON TO THE PROGRAM POINTER STACK. THE 
NUMBER. OF ELEMENTS “OF °:-PPS.COPY THAT .1S -SPECIFIED BY 
NUMBER.OF ENTRIES [S PUSHED ONTO THE PROGRAM POINTER STACK. 
THE ADDRESS OF THE NEXT INSTRUCTION [IS TAKEN FROM 
ENTRY. ADDRESS. 


8. EXIT.COROUTINE: THE <COROUTINE TABLE SPECIFIER> IS ASSUMED 
TO DESCRIBE A TABLE OF THE FORMAT GIVEN ABOVE. THE CURRENT 
NESTING LEVEL IS STORED IN NUMBER.OF .ENTRIES. THE CURRENT 
CODE ADDRESS IS STORED IN ENTRY.ADDRESS. THE NUMBER (AS 
SPECIFIED BY NUMBER.OF ENTRIES) OF ENTRIES ON THE TOP OF 
THE PROGRAM POINTER STACK IS COPIED TO PPS.COPY(0) THROUGH 
PPS .COPY(NUMBER.OF .ENTRIES-1). IF NUMBER.OF.ENTRIES IS 0. 
THEN NOTHING IS COPIED. AN "UNDO" IS PERFORMED, USING 
NUMBER.OF .ENTRIES AS THE NUMBER OF ENTRIES ON TOP OF THE 
“PROGRAM POINTER STACK. _ 
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NOTE: UPON FIRST EXECUTION OF ENTER.COROUTINE, THE TABLE MUST 
ALREADY BE SET UP. THE EASIEST WAY TO ACCOMPLISH THIS IS TO 
MAKE THE FIRST EXECUTABLE STATEMENT IN THE COROUTINE TO BE 
ENTERED AN EXIT.COROUTINE STATEMENT. THE FIRST ENTRANCE TO THE 
COROUTINE IS THEN ACCOMPLISHED BY A CALL STATEMENT. 


NOTE: THIS IS NOT A GENERAL COROUTINE MECHANISM--I.E., IT IS NOT 
SYMMETRIC. THE ROUTINE EXECUTING THE ENTER.COROUTINE IS A 


"MASTER" TO THE "SLAVE" ROUTINE WHICH CONTAINS THE 
EXIT. COROUTINE-S. | 


NOTE: EXIT.COROUTINE CAN ONLY APPEAR WITHIN PROCEDURES WITH NO 
PARAMETERS AND NO LOCAL DATA; |I.E., THOSE PROCEDURES WHICH DO 
NOT CHANGE THE CONTROL STACK. ~— ; | 
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WAIT STATEMENT 


<WAIT STATEMENT): := WAIT (<NUMBER OF TENTHS OF SECONDS>) 
/ WAIT (<NUMBER OF TENTHS OF SECONDS>, 
DC.10.COMPLETE ) 
/ WAIT (,DC.10.COMPLETE) 


THE WAIT STATEMENT CAUSES THE PROGRAM-S EXECUTION TO BE 
SUSPENDED UNTIL SOME EVENT OCCURS. THE FIRST FORM WAITS FOR THE 
SPECIFIED NUMBER OF TENTHS OF SECONDS TO PASS. THE SECOND FORM 
WAITS FOR THE NUMBER OF TENTHS OF SECONDS TO PASS OR UNTIL AN 
1/0 OPERATION COMPLETES ON A DATA-COMMUNICATIONS FILE, 
WHICHEVER OCCURS FIRST. THE THIRD FORM WAITS UNTIL AN I/O 
OPERATION COMPLETES ON A DATA-COMMUNICATIONS FILE. 
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APPENDIX I: SYNTAX OF THE SDL LANGUAGE 


Sc creme ci “es i <tc ad cies "cna x “sis” Sei caio ems cass “ese sei nim Gems “Sih niin, Somes: va) tspess iar sen (enn ui "wein eine “ees bun en 


<PROGRAM> ::= <DECLARATION STATEMENT LIST> 
<PROCEDURE STATEMENT LIST> 
-<EXECUTABLE STATEMENT LIST> 
FINI 


<DECLARATION STATEMENT 
LIST> ::= <EMPTY> 
| / <DECLARATION STATEMENT > 
<DECLARATION STATEMENT LISTD> 


<DECLARATION STATEMENT> ::= <DECLARE STATEMENT); 
| / <FILE DECLARATION STATEMENT>; 

/ <SWITCH FILE DECLARATION 

STATEMENT>; 

<DEFINE STATEMENT>; 

<FORWARD DECLARAT:ION> 

<USE STATEMENTD; 

<SEGMENT STATEMENT > - 

<DECLARATION STATEMENT> 


~SRRS 


<SEGMENT STATEMENT > 


SEGMENT (<SEGMENT IDENTIFIERD)) ; 
/ SEGMENT.PAGE (<SEGMENT IDENTIFIER> 
OF <PAGE IDENTIFIER) ; 


<SEGMENT IDENTIFIER> ::= <IDENTIFIERD 


<PAGE IDENTIFIERD>D <IDENTIFIER>D 


<DECLARE STATEMENT> ::= DECLARE <DECLARE ELEMENT > 
/ <DECLARE STATEMENT>, <DECLARE ELEMENT> 


<DECLARED PART> 
<TYPE PART> 

/ <STRUCTURE LEVEL NUMBER> 
<STRUCTURE DECLARED PART> 
<STRUCTURE TYPE PART> 

/ DYNAMIC <SIMPLE IDENTIFIER> 
<DYNAMIC TYPE PART> 

/ PAGED <ELEMENTS-PER-PAGE PART > 
<ARRAY IDENTIFIER> <ARRAY BOUND> 
<TYPE PART> 


<DECLARE ELEMENT > 


<DECLARED PART> ::= <COMPLEX IDENTIFIERD 
/ (<COMPLEX IDENTIFIER LIST>) 
/ <COMPLEX IDENTIFIER> REMAPS 
<REMAP IDENTIFIERD 


<COMPLEX IDENTIFIER 7 
EIST 424 <COMPLEX IDENTIFIER> 


<COMPLEX IDENTIFIER> 


<SIMPLE IDENTIFIER> 
<ARRAY IDENTIFIERD> 
<ARRAY BOUND> 


<REMAP IDENTIFIERD 
<TYPE PART>D ::= 


<FIELD SIZE> ::= 


<STRUCTURE LEVEL 
NUMBER> ::= 


<STRUCTURE DECLARED 
PART> ::= | 


<DUMMY PART> ::= 


<ARRAY BOUND PART> 
<STRUCTURE TYPE PART> 
<DYNAMIC TYPE PART> 


<DYNAMIC FIELD SIZE> 


<ELEMENTS-PER-PAGE 
PART> ::= 


<FILE DECLARATION 
STATEMENT> ::= 


<FILE DECLARE 
ELEMENT LIST> ::= 


~ 


<COMPLEX IDENTIFIERD, 
<COMPLEX IDENTIFIER LIST> 


<SIMPLE IDENTIFIER> 
<ARRAY IDENTIFIER> <ARRAY BOUND> 


<IDENTIFIERD 
<IDENTIFIER> 
(<NUMBER> ) 

BASE 

<SIMPLE IDENTIFIERD 
<ARRAY IDENTIFIER>D 
FIXED 

CHARACTER <FIELD SIZE> 
BIT <FIELD SIZE> 


(<NUMBER> ) 
<NUMBER > 


<DECLARED PART > 
FILLER 


<DUMMY PART> REMAPS <REMAP IDENTIFIERD> 


DUMMY <ARRAY BOUND PART > 


<EMPTY> 
<ARRAY BOUND > 


<EMPTY> 
<TYPE PART > 


BIT <DYNAMIC FIELD SIZE> 
CHARACTER <DYNAMIC FIELD SIZE> 


(<EXPRESSION>) 


(<NUMBER > ) 


FILE <FILE DECLARE ELEMENT LIST> 


<FILE DECLARE ELEMENT> 
<FILE DECLARE ELEMENT), — 
<FILE DECLARE ELEMENT LIST> 
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<FILE DECLARE ELEMENT> ::= <FILE IDENTIFIER><FILE ATTRIBUTE PART> 
<FILE IDENTIFIER>D ;::= <IDENTIFIERD 


<FILE ATTRIBUTE PART> 


<EMPTY> 
/ (<FILE ATTRIBUTE LIST>) 


<FILE ATTRIBUTE LIST> 


<FILE ATTRIBUTE> 
/ <FILE ATTRIBUTED, 
<FILE ATTRIBUTE LIST> 


<FILE ATTRIBUTED ::= <LABEL PART> 

<DEVICE PART> 

<MODE PART > 

<BUFFERS PART > 

<VARIABLE RECORD PART > 
<LOCK PART> 

<SAVE FACTOR PART > 
<RECORD SPECIFICATION PART > 
<REEL NUMBER PART> 

<DISK FILE DESCRIPTION PART > 
<OPEN OPTION PART> . 
<PACK-ID PART> 
<ALL.AREAS.AT.OPEN PART > 
<AREA.BY.CYLINDER PART> 
<EU.ASSIGNMENT PART > 
<MULTI.PACK PART > 

<USE INPUT BLOCKING PART > 
<SORTER STATION PART> 
<END.OF .PAGE PART > 
<REMOTE .KEY PART > 
<NUMBER.OF .STATIONS PART > 
<QUEVE .FAMILY.SIZE PART> 
<FILE TYPE PART> 

<WORK FILE PART> 

<LABEL TYPE PART> 
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<LABEL PART> ::= LABEL = <FILE IDENTIFICATION PART> 


<FILE IDENTIFICATION 
PART> ::= <MULTI-FILE IDENTIFICATION> 
/ <MULTI-FILE IDENTIFICATION> <SLASH> 
<FILE IDENTIFICATIOND 


<MULTI-FILE 

IDENTIFICATION>D ::= <CHARACTER STRING> 

<FILE IDENTIFICATION>D ::= <CHARACTER STRING> ADEFINED ABOVE 
<DEVICE PART> ::= DEVICE = <DEVICE SPECIFIER> 

“DEVICE -SPECIPIER>D. i= CARD 


/ TAPE 
/ TAPE.PE 


TAPE .7 

TAPE .9 

TAPE .NRZ 

MULTI .FUNCTION.CARD 

DISK <ACCESS MODE> 

DISK.PACK <ACCESS MODE > 
DISK.FILE <ACCESS MODE> 
DISK.PACK.CENTURY <ACCESS MODE > 
DISK.PACK.CAELUS <ACCESS MODE > 
PRINTER <DEVICE OPTIOND 

PUNCH <DEVICE OPTION> 
PAPER. TAPE .PUNCH <DEVICE OPTION> 
PAPER.TAPE.READER 
PUNCH.PRINTER <DEVICE OPTION> 
READER.PUNCH <DEVICE OPTION> 
READER.PUNCH.PRINTER 

<DEVICE OPTION> 

READER .96 

PUNCH.96 <DEVICE OPTION> 

SPO 

CARD.READER 

CARD.PUNCH <DEVICE OPTION> 

MF CU 

SORTER.READER 

READER .SORTER 

CASSETTE 

REMOTE 

QUEUE — 


OO OG a a a 
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<ACCESS MODED ::= <EMPTY> / SERIAL / RANDOM 
<DEVICE OPTION> <EMPTY> 

<BACKUP OPTION> 

<SPECIAL FORMS OPTIOND> 

/ <SPECIAL FORMS OPTION> <BACKUP OPTIOND> 


~N MN 


<BACKUP OPTION> <BACKUP SPECIFIER> 


/ OR <BACKUP SPECIFIER> 


<BACKUP SPECIFIER> ::= BACKUP / BACKUP TAPE / BACKUP DISK 


<SPECIAL FORMS OPTION> ::= FORMS 
<MODE PART> ::= MODE = <MODE SPECIFIER> 
<MODE SPECIFIER> ::= <FILE PARITY PART> 


/ <TRANSLATION PART> | 3 
/ <FILE PARITY PART> <TRANSLATION PART> 


<FILE PARITY PART> ::= + ODD / EVEN 
<TRANSLATION PART>::= EBCDIC / ASCII / BCL / BINARY 


<BUFFERS PART> ::= BUFFERS = <NUMBER OF BUFFERS> 


<NUMBER OF BUFFERS> ::= 


<VARIABLE RECORD PART> 
<LOCK PART> ;::= 

<SAVE FACTOR PART> ::= 
<SAVE FACTOR> ::= 


<RECORD SPECIFICATION 
PART> ::= 


<RECORD SIZE SPECIFIER>D 


<PHYSICAL RECORD SIZE> 
<LOGICAL RECORD SIZE> 


<LOGICAL RECORDS PER 
PHYSICAL RECORD> ::= 


«REEL NUMBER PART) ::= 
<REEL NUMBER> ::= 
<DISK FILE DESCRIPTION 
PART> ::= 

<NUMBER OF AREAS) ;::= 


<PHYSICAL RECORDS 
PER AREAD ::= 


<PACK.ID PART> ::= 
<PACK IDENTIFICATIOND>D 
<OPEN OPTIOND ::= 


<OPEN OPTION ATTRIBUTE 
LIST> ::= 


<ALL.AREAS.AT. 
OPEN PART> ::= 


<AREA.BY.CYLINDER PART> 


<NUMBER > 

VARIABLE 

LOCK 

SAVE = <SAVE FACTOR> 


<NUMBER > 


RECORDS = <RECORD SIZE SPECIFIER>D 
<PHYSICAL RECORD SIZE> 

<LOGICAL RECORD SIZE> <SLASH> 
<LOGICAL RECORDS PER PHYSICAL RECORD> 
<NUMBER > 


<NUMBER > 


<NUMBER > 

REEL = <REEL NUMBER> 

<NUMBER > 

AREAS = <NUMBER OF AREAS> <SLASH> 
<PHYSICAL RECORDS PER AREA> 


<NUMBER> 


<NUMBER> 

PACK.ID = <PACK IDENTIFICATIOND 
‘CHARACTER STRING? 

OPEN. OPTION 

<OPEN OPTION ATTRIBUTE LIST 


<OPEN ATTRIBUTE> , 
<OPEN ATTRIBUTE> <SLASH> 
<OPEN ATTRIBUTE LIST> 
ALL .AREAS.AT.OPEN 


AREA.BY.CYLINDER 
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EU.SPECIAL = <NUMBER> | 
/ EU.INCREMENTED = <NUMBER> 


<EU.ASSIGNMENT PART> 


<USE. INPUT. BLOCKING 


PART> ::= | USE. INPUT . BLOCKING 
<SORTER STATION PART> ::= SR.STATION = <NUMBER> 
<END.OF .PAGE PART> ::= END.OF .PAGE.ACTION 
<REMOTE.KEY PART: := REMOTE .KEY 


<NUMBER.OF .STATIONSD:: 


NUMBER.OF .STATIONS = <NUMBER> 


<MULTI PACK PART>::= MULTI .PACK 
<QUEUE FAMILY .SIZE 
PART): := QUEUE .FAMILY.SIZE = <NUMBER> 
<FILE TYPE PART>::= FILE.TYPE = <FILE TYPE SPECIFIER> 
<FILE TYPE SPECIFIER>::= DATA | 

/ INTERPRETER 

/ CODE 

/ INTRINSIC 
<WORK FILE PART>::= WORK .FILE 
<LABEL TYPE PART): := LABEL. TYPE = <LABEL TYPE SPECIFIER> 
<LABEL TYPE SPECIFIER>::= UNLABELED 


<SWITCH FILE 
DECLARATION STATEMENT>: := SWITCH.FILE <SWITCH FILE 
DECLARE ELEMENT LIST> 


<SWITCH FILE 
DECLARE ELEMENT LIST>::= <SWITCH FILE DECLARE ELEMENT > 
/ <SWITCH FILE DECLARE ELEMENT>, 
<SWITCH FILE DECLARE ELEMENT LIST> 


<SWITCH FILE 
DECLARE ELEMENT> ::= <SWITCH FILE IDENTIFIERD (<FILE 
IDENTIFIER LIST>) | 


<SWITCH FILE IDENTIFIER>::= <IDENTIFIER> 


<FILE IDENTIFIERD 
/ <FILE IDENTIFIER>, <FILE IDENTIFIER LIST> 


<FILE IDENTIFIER LIST)>:: 


«DEFINE STATEMENT> ::= DEFINE <DEF INE ELEMENT > 
| / <DEF INE STATEMENT>, 
<DEF INE ELEMENT> | 


<DEF INE ELEMENT> ;:= 
<DEF INE IDENTIFIER>D ::= 


<FORMAL PARAMETER PART> 
<FORMAL PARAMETER LIST> 


<FORMAL PARAMETERD>D ::= 
<DEF INE STRINGD ::= 


<WELL-FORMED CONSTRUCT> 


<BASIC COMPONENT> ::= 
<DEF INE INVOCATIOND>D ::= 


<SIMPLE DEFINE 
IDENTIFIER> ::= 


<PARAMETRIC 
DEFINE IDENTIFIERD ::= 


DEFINE ACTUAL 
PARAMETER LIST> ::= 


<DEF INE ACTUAL 
PARAMETER> ::= 


<FORWARD DECLARAT ION> 


~~ €COMPOUND PROCEDURE 
HEAD> ::= 


™~ SR 
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<DEFINE IDENTIFIER> 
<FORMAL PARAMETER PART > 
AS <DEF INE STRING> 


<IDENTIFIER>D 


(<FORMAL PARAMETER LIST>) 
[<FORMAL PARAMETER LIST>] 
<EMPTY> 


<FORMAL PARAMETER> 
<FORMAL PARAMETER>, 
<FORMAL PARAMETER LIST> 


<IDENTIFIERD 
#<WELL-FORMED CONSTRUCT ># 


<EMPTY> 

<BASIC COMPONENT > 
<WELL-FORMED CONSTRUCT > 
<RESERVED WORD> ASEE APPENDIX 
<IDENTIFIER> 
<SPECIAL CHARACTER> 
<COMMENT STRING> | 

<CONSTANT > ADEFINED ABOVE 
<SIMPLE DEFINE IDENTIFIERD 

<PARAMETRIC DEFINE IDENTIFIER> 

(<DEFINE ACTUAL PARAMETER LIST>) 
<PARAMETRIC DEFINE IDENTIFIER> 

[<DEFINE ACTUAL PARAMETER LIST) ] 


<IDENTIFIER>D 
<IDENTIF TER> 


<DEF INE ACTUAL PARAMETER> 

<DEF INE ACTUAL PARAMETERD, 
<DEFINE ACTUAL PARAMETER LIST> 
<WELL-FORMED CONSTRUCT > 

FORWARD <COMPOUND PROCEDURE HEAD> 


<PROCEDURE HEAD> 
<FORMAL PARAMETER DECLARATION 
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STATEMENT LIST> 


<PROCEDURE HEAD> ::= | <BASIC PROCEDURE HEAD > 
<PROCEDURE TYPE PART); 

<BASIC PROCEDURE HEAD>  <PROCEDURE NAME> 
<FORMAL PARAMETER PART > 


<PROCEDURE NAME> ::= PROCEDURE <PROCEDURE IDENTIFIERD 


<TYPED PROCEDURE IDENTIFIERD 
/ SNON-TYPED PROCEDURE IDENTIFIER> 


<PROCEDURE IDENTIFIER> 


<TYPED PROCEDURE | 
IDENTIFIER> ::= <IDENTIFIER> 


<NON-TYPED PROCEDURE 
IDENTIFIERD ::= <IDENTIF IERD>D 


<INTRINSIC IDENTIFIER>:= <TYPED INTRINSIC IDENTIFIER>D 
7 | ~/ SNON-TYPED INTRINSIC IDENTIFIERD 


<TYPED INTRINSIC 


IDENTIFIER>: := |  <IDENTIFIERD> 
<NON-TYPED INTRINSIC | 
IDENTIFIERD: a <IDENTIFIER> 
<PROCEDURE TYPE PART) ::=  <EMPTY> 


/ <FORMAL TYPE PART> 


<FORMAL TYPE PART> ::= <TYPE PART> 
| / <TYPE VARYING PART> 


<TYPE PART> ::5 FIXED 
/ CHARACTER <FIELD SIZE> 
/ BIT <FIELD SIZE> 


<TYPE VARYING PART> ::= ~ VARYING 
/ BIT VARYING 
/ CHARACTER VARYING 


<FORMAL PARAMETER DECLA- 
RATION STATEMENT LIST> :: <EMPTY> 
: / <FORMAL PARAMETER DECLARATION STATEMENT) ; 

<FORMAL PARAMETER DECLARATION 


STATEMENT LIST> 


<FORMAL PARAMETER 
DECLARATION STATEMENT > 


FORMAL <FORMAL ELEMENT> 
/ FORMAL.VALUE <FORMAL ELEMENT> 
/ <FORMAL PARAMETER DECLARATION STATEMENT>, 
<FORMAL ELEMENT > 


<FORMAL ELEMENT) ::= (<FORMAL IDENTIFIER LIST>) 
<FORMAL TYPE PART> 
/ <FORMAL IDENTIFIERD 
<FORMAL TYPE PART > 


<FORMAL INDENTIFIER 
LIST? 32> <FORMAL IDENTIFIER>D 
/ <FORMAL IDENTIFIERD, 
<FORMAL IDENTIFIER LIST> 


<FORMAL IDENTIFIER>D ::= <COMPLEX IDENTIFIER> 
/ <VARYING ARRAY SPECIFIER> 
<COMPLEX IDENTIFIER> ::= <SIMPLE IDENTIFTIERD “DEFINED ABOVE 
/ <ARRAY IDENTIFIERD ADEFINED ABOVE 
<ARRAY BOUND> *ADEFINED ABOVE 


<VARYING ARRAY 
SPECIFIER> ::= <ARRAY IDENTIFIER> 
<VARYING ARRAY BOUND> 


<VARYING ARRAY BOUND>D ::= (*) 


<USE STATEMENT> ::= USE (<SIMPLE IDENTIFIER LIST>) 
OF <DEFINE IDENTIFIER> 


<SIMPLE IDENTIFIER 
LIST> ::= <SIMPLE IDENTIFIERD 
/ <SIMPLE IDENTIFIERD, 
<SIMPLE IDENTIFIER LIST> 


<SIMPLE IDENTIFIERD <IDENTIFIER>D 


<DEF INE IDENTIFIERD <IDENTIFIER> 


<PROCEDURE STATEMENT 
LIST> ::= <EMPTY> 
/ <PROCEDURE STATEMENT); 
<PROCEDURE STATEMENT LIST) 


<PROCEDURE STATEMENT> ::= <PROCEDURE DEF INITION> 
/ <SEGMENT STATEMENT > 
<PROCEDURE STATEMENT > 


<PROCEDURE DEF INITIOND ::= <COMPOUND PROCEDURE HEAD> %DEFINED ABOVE 
<PROCEDURE BODY> — 


<PROCEDURE BODY> ::= <DECLARATION STATEMENT LIST> 
<PROCEDURE STATEMENT LIST> 
<PROCEDURE EXECUTABLE STATEMENT LIST> 
<PROCEDURE ENDING> 


<PROCEDURE EXECUTABLE | | 
STATEMENT LIST> ::= <PROCEDURE EXECUTABLE STATEMENT> » f 


<PROCEDURE EXECUTABLE 
STATEMENT> ::= 


<RETURN STATEMENT > 


<TYPED PROCEDURE 
RETURN STATEMENT> ::= 


<NON-TYPED PROCEDURE 
RETURN STATEMENT> ::= 


<PROCEDURE ENDING) ::= 


 <EXECUTABLE STATEMENT 
LIST> ::= 


EXECUTABLE STATEMENT> 


<DO GROUP> ::= 


<GROUP HEAD> ::= 
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<PROCEDURE EXECUTABLE STATEMENT > 
«PROCEDURE EXECUTABLE STATEMENT LIST> 


<EXECUTABLE STATEMENT > 

<RETURN STATEMENT >; 

<SEGMENT STATEMENT > ADEFINED ABOVE 
<PROCEDURE EXECUTABLE STATEMENT > 


<TYPED PROCEDURE RETURN STATEMENT > 
<NON-TYPED PROCEDURE RETURN STATEMENT > 


RETURN <EXPRESSIOND ~ 


RETURN 
RETURN.AND.ENABLE. INTERRUPTS 


END | 
END <PROCEDURE IDENTIFIER> 


<EXECUTABLE STATEMENT > 
<EXECUTABLE STATEMENT > 
<EXECUTABLE STATEMENT LIST> 


<DO GROUP > ; 

<IF. STATEMENT > 

<CASE STATEMENT >; 

<ASSIGNMENT STATEMENT> ; 
<EXECUTE-PROCEDURE STATEMENT>; 
<EXECUTE-FUNCTION STATEMENT >; 


<GROUP TERMINATION STATEMENT); 


<1/0 CONTROL STATEMENT> 
<MODIFY INSTRUCTIOND; 
<NULL STATEMENT> 


-<STOP STATEMENT); 


<FILE ATTRIBUTE STATEMENT>; 
<ZIP STATEMENT> 

<SEARCH STATEMENT> | 
<ACCESS FILE HEADER STATEMENT> 
<SEND STATEMENT > 

<RECEIVE STATEMENT> 

<ARRAY PAGE TYPE STATEMENT> | 
<COROUTINE STATEMENT> 

<WAIT STATEMENT); 

<SEGMENT STATEMENT> 
<EXECUTABLE STATEMENT> 


<GROUP HEAD> 
<GROUP BODY> 


<GROUP NAME> 
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<FOREVER PART); 


<GROUP NAME> ::= DO 
/ DO <GROUP IDENTIFIER> 
<FOREVER PART> ::= _ €EMPTY> 
/ FOREVER 
<GROUP IDENTIFIERD ::= <IDENTIFIER> 
<GROUP BODY> ::= <EXECUTABLE STATEMENT LISTOA*DEF INED ABOVE 


<GROUP ENDING> 


<GROUP ENDING> END 


/ END <GROUP IDENTIFIER> 


<IF STATEMENT > 


<IF CLAUSE > 
<EXECUTABLE STATEMENT > 
/ <IF CLAUSE> 
<EXECUTABLE STATEMENT > 
ELSE <EXECUTABLE STATEMENT > 


<IF CLAUSE> ::= IF <EXPRESSION> THEN 
<EXPRESSION LIST> ::= <EXPRESSION> 
/ <EXPRESSION>, 
<EXPRESSION LIST> 
<EXPRESSION> ::= <STRING EXPRESSION> 
/ <STRING EXPRESSION> 
CAT <EXPRESSION> 


<STRING EXPRESSION> 


<LOGICAL FACTOR> 

/ “LOGICAL FACTOR> 
<OR-ING OPERATOR> 
<STRING EXPRESSION> 


<OR-ING OPERATOR>D ::= OR / EXOR 
<LOGICAL FACTOR> ::= <LOGICAL SECONDARY > 


/ <LOGICAL SECONDARY > 
AND <LOGICAL FACTOR> 


<LOGICAL SECONDARY > <LOGICAL PRIMARY> 
7 / NOT <LOGICAL PRIMARY> 
<LOGICAL PRIMARY>D ::= <ARITHMETIC EXPRESSION> 
/ <ARITHMETIC EXPRESSIOND 
<RELATIOND>D 
<ARITHMETIC EXPRESSIOND 


<RELATION> ::= € / § 4 = ff # fF 2 SF DSF 
LSS / LEQ / EQL / NEQ / 
GEQ / GTR 
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<ARITHMETIC 
EXPRESSION> ::= <TERM> 
/ <TERM> 
<ADDITIVE OPERATOR> 
<ARITHMETIC EXPRESSION> 


<ADDITIVE OPERATOR> + jf = 


<TERM> ::= <SIGNED PRIMARY> 
/ <SIGNED PRIMARY> 
<MULTIPLICATIVE OPERATOR> 
<TERM> 


MULTIPLICATIVE 
OPERATOR> ::= * / MOD / <SLASH> 


<PRIMARY> 
/ <UNARY OPERATOR> 
-<PRIMARY> 


<SIGNED PRIMARY > 


<UNARY OPERATORD + / - 


<PRIMARY> ::= <CONSTANT> XDEFINED ABOVE 
| <VARIABLE> ) 

(<EXPRESSION>) XDEFINED ABOVE 

<CONDITIONAL EXPRESSION> 

<CASE EXPRESSION> 

<BUMPOR> | 

<DECREMENTOR> 

<ASSIGNOR> 
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<VARIABLED ::= <ADDRESS VARIABLED 
7 <VALUE VARTABLED 


<ADDRESS VARIABLE> ::= <SIMPLE VARIABLE> 
/ <SUBSCRIPTED VARIABLE > 
<INDEXED VARIABLE > 
/ SADDRESS-GENERATING FUNCTION DESIGNATOR> 


™~ 


<SIMPLE VARIABLE> ::= — <SIMPLE IDENTIFIER? 
<SIMPLE IDENTIFIER> ::= CIDENTIFIER> 
{SUBSCRIPTED VARIABLE? ::=  <ARRAY IDENTIFIER? 
(<EXPRESSION>) XDEFINED ABOVE 
— <ARRAY IDENTIFIER ::= IDENTIFIER> XDEFINED ABOVE 
<INDEXED VARIABLE> ::= (SIMPLE IDENTIFIER> 


< INDEX PART > 
/ <ARRAY IDENTIFIER>D 
— INDEX PART> 


< INDEX PART> ::= 


<ADDRESS~GENERAT ING 
FUNCTION DESIGNATOR> 


<SUB-STRING ADDRESS 
DESIGNATOR> ::= 


<SUB-STRING FUNCTION 
IDENTIFIERD ::= 


<OF FSET PART > 


i 


<LENGTH PART > 
<STRING ADDRESS> ::= 


<ADDRESS GENERATOR 
LIST> ::= 


<ADDRESS GENERATOR> 


<BUMPOR> ::= 
<MODIFIER>D ::= 
<DECREMENTOR> ::= 


<CONDITIONAL ADDRESS 
GENERATOR> ::= 


<CASE ADDRESS 


™~™ 


™m MRR 


(<EXPRESSION LIST) ] 
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DEFINED ABOVE 


<SUB-STRING ADDRESS DESIGNATOR> 
<FETCH COMMUNICATE MESSAGE 
POINTER DESIGNATOR> 
<DESCRIPTOR DESIGNATOR> 
<DESCRIPTOR-GENERATOR DESIGNATOR> 
<ADDRESS-MODIF IER DESIGNATOR> 


<SUB-STRING FUNCTION IDENTIFIERD 
(<STRING ADDRESS> ,<OFFSET PART>) 
<SUB-STRING FUNCTION IDENTIFTIERD 
(<STRING ADDRESS> ,<OFFSET PART>, 
<LENGTH PART >) 


SUBSTR 
SUBBIT 


<EXPRESSION> 


<EXPRESSION> 


<ADDRESS GENERATOR> 


<ADDRESS GENERATOR? 
<ADDRESS GENERATOR) , 


<ADDRESS GENERATOR LIST> 


<ADDRESS VARI ABLE> 
<BUMPOR > 
<DECREMENTOR> 
<CONDITIONAL ADDRESS GENERATOR> 


<CASE ADDRESS GENERATOR? 


XDEFINED ABOVE 


<ADDRESS-GENERATING ASSIGNOR> 


BUMP <ADDRESS VARIABLE > 
<MODIF TER> 


<EMPTY > 
BY <EXPRESSION> 


DECREMENT <ADDRESS VARIABLE> 
<MODIFIER> 


IF <EXPRESSTON> 
THEN <ADDRESS GENERATOR> 


ELSE 


<ADDRESS GENERATOR> 


— Drs 


<ADDRESS~ GENERATING 
ASSIGNOR> ::= 


<ASSIGNOR> ::= 


<NON~DESTRUCT IVE 
REPLACE> ::= 


CREPLACE, DELETE 
LEFT PART> ::= 


<REPLACE, DELETE 
RIGHT PART> ::= 


<FETCH COMMUNICATE MESSAGE 


POINTER DESIGNATOR> ::= 
<DESCRIPTOR DESIGNATOR) 
<DESCRIPTOR-GENERATOR 
DESIGNATOR> ::= 
<ADDRESS-MODIF IER 
DESIGNATOR> ::= 


<ADDRESS-MODIF IER 
FUNCTION IDENTIFIER> 


<VALUE VARIABLE > Fil 


<VALUE-GENERAT ING 
FUNCTION DESIGNATOR? 


5; 3 & 
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CASE <EXPRESS ION> 


OF USC GENERATOR LIST>) 


<ADDRESS VAR IABLE> 

<REPLACE, DELETE LEFT PART> 
<ADDRESS GENERATOR> _ 
<ADDRESS VARIABLE> 
“REPLACE, DELETE enone PART> 
<EXPRESS ION> 


<A DDRESS VAR IABLE> 


<NON-DESTRUCTIVE REPLACE> 
<EXPRESS ION> 


<REPLACE, DELETE LEFT PART> 


/ <REPLACE, DELETE RIGHT PART> 


“ee MA TR 


FETCH.COMMUNICATE .MSG.PTR 


DESCRIPTOR (<SIMPLE IDENTIFIER>) 
DESCRIPTOR (<ARRAY IDENTIFIER>) 


MAKE .DESCRIPTOR (<EXPRESSION>) 


<ADDRESS-MODIFIER FUNCTION IDENTIFIER> 
(<SIMPLE IDENTIFIERD) 


NEXT. ITEM 
PREVIOUS. ITEM 


CVALUE-GENERAT ING FUNCTION DESIGNATOR> 
<TYPED PROCEDURE DESIGNATOR> 

(<ADDRESS VARIABLE >) 7 

<FILE DESIGNAROR> 


<SWAP DESITGNATOR> 

<SUB-STRING VALUE DESTGNATOR> 
<DISPATCH DESIGNATOR> 
C<LOCATION DESIGNATOR> 
CCONVERT DESIGNATOR> 

CLENGTH DESIGNATOR> 
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<MEMORY SIZE DESIGNATOR> 
<DESCRIPTOR-VALUE-GENERATOR DESIGNATOR> 
<INTERROGATE INTERRUPT STATUS DESIGNATOR> 
<DECIMAL CONVERSION DESIGNATOR> 
<BINARY CONVERSION DESIGNATOR> 
<TIME FUNCTION DESIGNATOR> 

<DATE FUNCTION DESIGNATOR> 
<NAME-OF-DAY FUNCTION DESIGNATOR> 
<BASE REGISTER DESIGNATOR> 

<LIMIT REGISTER DESIGNATOR 
<CONTROL STACK TOP DESIGNATOR> 
<DATA ADDRESS DESIGNATOR> 
<SEARCH.LINKED.LIST DESIGNATOR> 
<SORT.STEP.DOWN DESIGNATOR> 
<SORT.UNBLOCK DESIGNATOR> 

<SORT .SEARCH DESIGNATOR> 
<PARITY.ADDRESS DESIGNATOR> 
<DYNAMIC MEMORY BASE DESIGNATOR> 
<HASH CODE DESIGNATOR> 

<NEXT TOKEN DESIGNATOR> 
<DELIMITED TOKEN DESIGNATOR> 
<EVALUATION STACK TOP DESIGNATOR> 
<CONTROL STACK BITS DESIGNATOR> 
<NAME STACK TOP DESIGNATOR> 
<DISPLAY BASE DESIGNATOR> 
<CONSOLE SWITCHES DESIGNATOR> 
<SEARCH SERIAL LIST DISIGNATOR> 
<SPO INPUT PRESENT DESIGNATOR> — 
<SEARCH.SDL.STACKS DESIGNATOR> 
<EXECUTE DESIGNATOR> 
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<SWAP DESIGNATOR> ::= SWAP (<ADDRESS GENERATOR>,<EXPRESSION>) 


<SUB-STRING VALUE 
DESIGNATOR> ::= <SUBSTRING FUNCTION IDENTIFIER> 
(<STRING VALUE>,<OFFSET PART>) 
/ <SUBSTRING FUNCTION IDENTIFTIERD 
(<STRING VALUE>,<OFFSET PART> 
<LENGTH PART >) 


<STRING VALUED ::= <EXPRESSION> 


<DISPATCH DESIGNATOR> 


(<PORT,CHANNEL ,PRIORITY>, 
<1/0 DESCRIPTOR ADDRESS>) 


<PORT ,CHANNEL ,PRIORITY ::= <EXPRESSION> 


<1/0 DESCRIPTOR 
ADDRESS> ::= C<EXPRESSION> 


<LOCATION DESIGNATOR> 


LOCATION (<LOCATION PARAMETER PART>) 


<LOCATION PARAMETER 
PART>::= <PROCEDURE IDENTIFIERD 
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/ SSIMPLE IDENTIFIERD 
/ <ARRAY IDENTIFIER> 


<CONVERT DESIGNATOR> 


~<CONVERSION PART> 


<CONVERSION TYPE) 
<BIT GROUP SIZE> ::= 
<LENGTH DESIGNATOR> 
<MEMORY SIZE 
DESIGNATOR>D ::= 
<DESCRIPTOR-VALUE- 
GENERATOR DESIGNATOR> 


<INTERROGATE INTERRUPT 
STATUS DESIGNATOR> ::= 


<DECIMAL CONVERSION 
DESIGNATOR> ::= 


<DECIMAL STRING SIZE> 


<BINARY CONVERSION 
DESIGNATOR> ::= 


<TIME FUNCTION 
DESIGNATOR> ::= 
<TIME FORMAT> ::= 
<REPRESENTATIOND ::= 


<BASE REGISTER 
DESIGNATOR> ::= 


<LIMIT REGISTER 
DESIGNATOR> ::= 


<CONTROL STACK | 
TOP DESIGNATOR> ::= 


<DATE FUNCTION 


CONVERT (<EXPRESSION>D, 
<CONVERSION PART>) 


/ CONV (<EXPRESSION>, 


<CONVERSION PART>) 


<CONVERSION TYPE> 


/ <CONVERSION TYPE>, 


<BIT GROUP SIZE> 
BIT / FIXED / CHARACTER 


lf 2s Sf 4 


LENGTH (<EXPRESSION>D) 


S.MEM.SIZE 
M.MEM.SIZE 


VALUE .DESCRIPTOR (<ADDRESS GENERATOR> ) 
INTERROGATE. INTERRUPT .STATUS 


DECIMAL (<EXPRESSION> ,<DECIMAL STRING SIZE> 


<EXPRESSION> 

BINARY (<EXPRESSIOND) 

TIME | 

TIME (<TIME FORMAT>,<REPRESENTATIOND) 


COUNTER/MILITARY/CIVILIAN 


BIT/DIGIT/CHARACTER 
BASE .REGISTER | 
LIMIT .REGISTER 


CONTROL .STACK. TOP 
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DESIGNATOR> ::= DATE 
/ DATE (<DATE FORMAT>,<REPRESENTATION>) 


<DATA FORMAT> ::= | JULIAN / MONTH / DAY / YEAR 


<NAME -OF -DAY 
FUNCTION DESIGNATORD>D ::= NAME .OF .DAY 


<DATA ADDRESS 
DESIGNATOR> ::= DATA.ADDRESS(<ADDRESS GENERATOR?) 


<SEARCH.LINKED.LIST 

DESIGNATOR> ::= SEARCH.LINKED.LIST 
(<RECORD ADDRESS> ,<ARGUMENT INDEX>, 
<COMPARE VARIABLE>,<RELATIOND, 
<LINK INDEX>) 


<RECORD ADDRESS> = <EXPRESSIOND 

<ARGUMENT INDEX) = <EXPRESSION>D 

<COMPARE VARIABLE>D ::= <EXPRESSION> 

<RELATIOND ::= CK / § S=Fsl#FS/ 2/7 dF 
LSS / LEQ / EQL / NEQ / 
GEQ / GTR | 

<LINK INDEX> ::= <EXPRESSION> 


<SORT.STEP.DOWN 
DESIGNATOR> ::= SORT .STEP.DOWN 
| (<RECORD 1>,<RECORD e>, 
<KEY TABLE ADDRESS>) 


<RECORD 1> = <EXPRESSION> 
<RECORD e2> = <EXPRESSION> 
<KEY TABLE ADDRESS> ::= <EXPRESSION> 


<SORT .UNBLOCK 
DESIGNATOR> ::= SORT.UNBLOCK (<MINI FIB ADDRESS>, 
<LENGTH> , <SOURCE >, <DESTINATION>) 


<MINI FIB ADDRESS>? ::= <ADDRESS GENERATOR> 
<LENGTH> = <EXPRESSION>D 
<SOURCE > = <EXPRESSION> 


<DESTINATIOND ::= ~<EXPRESSION> 


<SORT .SEARCH 
DESIGNATOR> ::= SORT .SEARCH 
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(<TABLE ADDRESS> ,<LIMITD) 


<TABLE ADDRESS> ::= <ADDRESS GENERATOR> 


<LIMIT> ::= <EXPRESSION> 


<PARITY.ADDRESS 

DESIGNATOR> ::= PARITY.ADDRESS 
<DYNAMIC MEMORY | 

BASE DESIGNATOR> ::= DYNAMIC .MEMORY .BASE 


<HASH CODE DESIGNATOR): := HASH.CODE (<TOKEND) 


<TOKEN>D: := <EXPRESSION> 


<NEXT TOKEN DESIGNATOR): := NEXT.TOKEN (<FIRST CHARACTER>, 


<SEPARATOR>, NUMERIC-TO-ALPHA INDICATOR>, 


<NUMERIC-TO-ALPHA 
INDICATOR>: := 


<DELIMITED TOKEN 
DESIGNATOR): := 


<FIRST CHARACTER>: := 


<RESULT>::= 


<EVALUATION STACK 
TOP DESIGNATOR>: := 


<CONTROL STACK 
BITS DESIGNATOR: :=_ 


<NAME STACK 
TOP DESIGNATOR)>: := 


<DISPLAY BASE 
DESIGNATOR): := 


<CONSOLE SWITCHES 
DESIGNATOR>: := 


<SEARCH SERIAL 
LIST DESIGNATOR): := 


RESULT >) 


SET 
RESET 


DELIMITED.TOKEN (<FIRST CHARACTER>, 
<DELIMITERS>, <RESULT>) 


<CHARACTER STRING> 
<BIT STRING? 
<IDENTIF IER> 
EVALUATION. STACK. TOP 
CONTROL .STACK.BITS 
NAME . STACK. TOP 
DISPLAY. BASE 


CONSOLE .SWITCHES 


SEARCH.SERIAL.LIST (<SSL COMPARE VALUE>, 
<SSL COMPARE TYPE>, <SSL COMPARE FIELD>, 
<SSL FIRST ITEM>, <SSL TABLE LENGTH>, 


<SSL RESULT VARIABLE>) 


<SSL COMPARE VALUE>: := 


<SSL COMPARE TYPED:: 
<SSL COMPARE FIELD>::= 
<SSL FIRST ITEM>::= 


<SSL TABLE LENGTH>:: 


<SSL RESULT VARIABLE>: := 


<SPO INPUT 
PRESENT DESIGNATOR): := 


<SEARCH.SDL .STACKS 
DESIGNATOR>: := 


<STACK BASE>: := 

<STACK TOP>: := 

<COMPARE BASE>: := 
<COMPARE TOP>: := 
<EXECUTE DESIGNATOR): := 
<TYPED PROCEDURE 
DESIGNATOR> ::= 

<TYPED PROCEDURE 
IDENTIFIER> ::= 


<ACTUAL PARAMETER PART> 


<ACTUAL PARAMETER LIST 


<ACTUAL PARAMETERD :: 


<ARRAY DESIGNATOR> 


<CONDI TIONAL 
EXPRESSIOND ::= 
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<EXPRESSION> 
</§/=/#/2/> 
<EXPRESSION> 
<EXPRESS 1 ON> 
<EXPRESSION> 


<ADDRESS GENERATOR> 
SPO. INPUT .PRESENT 


SEARCH.SDL.STACKS 

(<STACK BASE>, <STACK TOP>, 
<COMPARE BASE>, <COMPARE TOP>) 
<EXPRESSION> 

<EXPRESSION> 

<EXPRESSION> 

<EXPRESSION> 

EXECUTE (<EXPRESSION LIST>) 
<TYPED PROCEDURE IDENTIFIER>D 
<ACTUAL PARAMETER PART > 
<IDENTIFIER>D 


<EMPTY> 
(<ACTUAL PARAMETER LIST)) 


<ACTUAL PARAMETER> 
<ACTUAL PARAMETER? , 
<ACTUAL PARAMETER LIST> 


<EXPRESSION> 
<ARRAY DESIGNATOR> 


<ARRAY IDENTIFIER> ADEFINED ABOVE 


IF <EXPRESSION> 
THEN <EXPRESSION> 
ELSE <EXPRESSION> 


<CASE EXPRESSION> :;= 


<CASE STATEMENT) ;::= 


<CASE HEAD> 


<CASE BODY) 


<CASE ENDING> ::= 


<ASSIGNMENT STATEMENT > 


<REPLACE> ::= 


<EXECUTE-PROCEDURE 
STATEMENT> ::= 


<NON-TYPED PROCEDURE 
DESIGNATOR>D ::= 
<NON-TYPED PROCEDURE 
IDENTIFIERD ::= 


<EXECUTE-FUNCT ION 
STATEMENT> ;::= 


<FUNCTION DESIGNATOR> 


~~ NH NR Re RR RR RR RR RR RR RRR RSS 
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CASE <EXPRESSIOND | 
OF (<EXPRESSION LIST>) 


<CASE HEAD> 
<CASE BODY> 


CASE <EXPRESSION); 


<EXECUTABLE STATEMENT LIST> 
<CASE ENDING) 


END CASE 

<ADDRESS VARI ABLE> 
<REPLACE > 
<EXPRESSION> 


/ := 


<NON-TYPED PROCEDURE DESIGNATOR> 


<NON-TYPED PROCEDURE IDENTIFIER> 
<ACTUAL PARAMETER PART > 


<IDENTIFIERD 


<FUNCTION DESIGNATOR> 


<DUMP DESIGNATOR> 

<TRACE DESIGNATOR> 

<SAVE DESIGNATOR> 

<RESTORE DESIGNATOR> 

<FETCH DESIGNATOR> 

<HALT DESIGNATOR> | 
<REINSTATE DESIGNATOR> 
<ACCESS-FPB DESIGNATOR> 
<REVERSE STORE DESIGNATOR> 
<READ CASSETTE DESIGNATOR> 
<ACCESS OVERLAY DESIGNATOR> 
<ERROR COMMUNICATE DESTGNATOR> 
<SORT DESIGNATOR> | 
<OVERLAY DESIGNATOR> 

<HARDWARE MONITOR DESIGNATOR> 
<SAVE STATE DESIGNATOR> 
<SORT.SWAP DESIGNATOR> 
<INITIALIZE.VECTOR DESIGNATOR> 
<THREAD.VECTOR DESIGNATOR> 
<ENABLE. INTERRUPTS DESIGNATOR> 
<DISABLE. INTERRUPTS DESIGNATOR> 
<ACCESS FILE INFORMATION 


L7=ed 


DESIGNATOR> 

<DEBLANK DESIGNATORD | 
<FREEZE-PROGRAM DESIGNATOR> 
<THAW-PROGRAM DESIGNATOR> 
<DUMP-FOR-ANALYSIS DESIGNATOR> 
<COMPILE-CARD-INFO DESIGNATOR> 
<COMMUNICATE DESIGNATOR> 


~NN NO ONES 


<DUMP DESIGNATOR> DUMP 


<TRACE DESIGNATOR>D ::= TRACE / NOTRACE . 
/ TRACE (<EXPRESSION>) 


<SAVE DESIGNATOR> SAVE (<EXPRESSION LIST>) 


<RESTORE DESIGNATOR> ::= RESTORE (<ADDRESS GENERATOR LIST>) 


<FETCH DESIGNATOR> (<I1/O REFERENCE ADDRESS>, 
/ <PORT,CHANNEL ,PRIORITY ADDRESS>, 


<RESULT DESCRIPTOR ADDRESS>) 
<1/O0 REFERENCE ADDRESS> ::= <EXPRESSIOND 


<PORT , CHANNEL , 
PRIORITY ADDRESS> 


<ADDRSS GENERATOR> 


<RESULT DESCRIPTOR 
ADDRESS> ::= <ADDRESS GENERATOR> 


<HALT DESIGNATOR> HALT (<EXPRESSION>) 


C<REINSTATE DESTGNATOR> REINSTATE (<REINSTATED PROGRAM) ) 


<REINSTATED PROGRAM> ::= <ADDRESS GENERATOR> 


<ACCESS-FPB DESIGNATOR> 


<ACCESS-FPB IDENTIFERD 
(<FILE SPECIFIERD, 
<SOURCE OR DESTINATION FIELD>) 


<ACCESS FPB IDENTIFIER> ::= READ.FPB / WRITE.FPB 
<FILE SPECIFIER> ::= <FILE DESIGNATOR> 
/ <FILE NUMBER> 
<FILE NUMBERD> ::= <EXPRESSIOND 
<SOURCE OR DESTINATION 
FIELD> ::= <ADDRESS GENERATOR> 
<REVERSE STORE 
DESIGNATOR> ::= REVERSE.STORE (<ADDRESS GENERATOR LIST>, 
<EXPRESSIOND) : 


<READ CASSETTE 


- DESIGNATOR>: := 


<DESTINATION SPECIFIERD:: 


<HASH. TOTAL SPECIFIER>::=_ 


<RESULT SPECIFIERD: := 


<ACCESS OVERLAY 
DESIGNATOR> ::= 


<ACCESS OVERLAY 
IDENTIFIER>D ::= 


<ERROR COMMUNICATE 
DESIGNATOR>D ::= 


<SORT DESIGNATOR> ::= 


<SORT- INFORMAT ION-TABLE 
SPECIFIER> ::= | 


<SORT-KEY- TABLE 
SPECIFIER> ::= 


<INPUT FILE DESIGNATOR): : 


<OUTPUT FILE 
DESIGNATOR> ::= 


<OVERLAY DESIGNATOR> 


<HARDWARE MONITOR 
DESIGNATOR> ::= 


<SAVE STATE DESIGNATOR> 
<SORT.SWAP DESIGNATOR> 


<RECORD 1> 


<RECORD 2> 


<INITIALIZE.VECTOR 
DESIGNATOR>D ::= 


<TABLE ADDRESS> ::= 


<THREAD. VECTOR 


/ 
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READ.CASSETTE (<DESTINATION SPECIFIER, 
<HASH. TOTAL SPECIFIERD, <RESULT SPECIFIER 
<ADDRESS GENERATOR> 


HASH. TOTAL 


-NO.HASH. TOTAL 


<ADDRESS GENERATOR> 
<ACCESS OVERLAY IDENTIFIER> (<EXPRESSION>D) 
READ.OVERLAY / WRITE.OVERLAY 


ERROR.COMMUNICATE (<EXPRESSION>) — 


SORT (<SORT-INFORMATION-TABLE SPECIFIER>, | 
<SORT-KEY-TABLE SPECIFIER>, 


<INPUT FILE DESIGNATOR>, 
<OUTPUT FILE DESIGNATOR>) . 


<ADDRESS GENERATOR> 


<ADDRESS GENERATOR> 


<FILE DESIGNATOR>. 


<FILE DESIGNATOR> © 


OVERLAY (<EXPRESSION>) 


HARDWARE . MONI TOR (EXPRESSION) ) 


SAVE .STATE 
SORT.SWAP (<RECORD 1>,<RECORD e>) 
<ADDRESS GENERATOR> 


<ADDRESS GENERATOR> 


INITIALIZE.VECTOR (<TABLE ADDRESS>) 


<ADDRESS GENERATOR> 


DESIGNATOR>D ::= 
<TABLE ADDRESS> ::= 
<INDEX> ::= 


<ENABLE . INTERRUPTS 
DESIGNATOR> ::= 


<DISABLE. INTERRUPTS 
DESIGNATOR> ::= 


<ACCESS FILE INFORMATION 
DESIGNATOR> ::= 


<FILE DESIGNATOR>D ::= 


<<RETURN TYPE> 


<DESTINATION> 
<DEBLANK DESIGNATOR): := 
<FIRST CHARACTERD: := 


<FREEZE-PROGRAM 
DESIGNATOR): := 


< THAW-PROGRAM 
DESIGNATOR): := 


<DUMP-F OR- 
ANALYSIS DESIGNATOR): := 


<COMPILE-CARD- 
INFO DESIGNATOR>: := 


<CCI DESTINATION FIELD): := 


<COMMUNICATE DESIGNATOR): : 


<GROUP TERMINATION 
STATEMENT>D ::= 


<1/0 CONTROL STATEMENT > 


~ AA 
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THREAD. VECTOR (<TABLE ADDRESS> ,<INDEX>) 
<ADDRESS GENERATOR> 


<EXPRESSTOND 


ENABLE. INTERRUPTS 


DISABLE. INTERRUPTS 


ACCESS.FILE. INFORMATION (<FILE 


DESIGNATOR>, <RETURN TYPE>, <DESTINATION)) 


<FILE IDENTIFTER>D 
<SWITCH FILE IDENTIFIER> (<EXPRESSIOND) 


BIT / CHARACTER 
<ADDRESS GENERATOR> 
DEBLANK (<FIRST CHARACTER) ) 


<IDENTIFIER>D 


FREEZE .PROGRAM 


THAW .PROGRAM 


DUMP .FOR.ANALYSIS 


COMPILE .CARD. INFO 


(<CCI DESTINATION FIELD>)) 


<ADDRESS GENERATOR> 


COMMUNICATE (<EXPRESSION> ) 


UNDO 
UNDO (*) 
UNDO <GROUP IDENTIFIER> &’DEFINED ABOVE 


<OPEN STATEMENT > ; 
<CLOSE STATEMENT); 
<READ STATEMENT > 
<WRITE STATEMENT > 
<SEEK STATEMENT >; 


<OPEN STATEMENT): := 


<OPEN PART> ::= 
<FILE DESIGNATORD: := 


<OPEN ATTRIBUTE PART> 
<OPEN ATTRIBUTE LIST> 


<ATTRIBUTE SEPARATOR): : 


<OPEN ATTRIBUTED ::= 


< INPUT-OUTPUT MODE> ::= 


<LOCK MODE> ::= 


<OPEN ACTION MODE> 


<CODE FILE MODE> 


<MFCU MODE>::= 


<CLOSE STATEMENT): : 


<CLOSE ATTRIBUTE PART> :: 


<CLOSE ATTRIBUTE LIST> :: 


™~ NR 


a 
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<ACCEPT STATEMENT >; 
<DISPLAY STATEMENT > ; 
<SPACE STATEMENT > 
<SKIP STATEMENT > ; 


<OPEN PART> | 
<OPEN PART>; <FILE MISSING PART> 
<OPEN PART>; <FILE LOCKED PART> 
<OPEN PART>; <FILE MISSING PART> 
<FILE LOCKED PART> 


OPEN <FILE DESIGNATOR> 
<OPEN ATTRIBUTE PART > 


<FILE IDENTIFIERD 
<SWITCH FILE IDENTIFIER> (<EXPRESSION> ) 


C<EMPTY> | 
<OPEN ATTRIBUTE LIST> 
WITH <OPEN ATTRIBUTE LIST) 


<OPEN ATTRIBUTE> 
<OPEN ATTRIBUTE> <ATTRIBUTE SEPARATOR> 
<OPEN ATTRIBUTE LIST> 
, / <SLASH> / <EMPTY> 
<INPUT-OUTPUT MODE> 
<LOCK MODE> 

<OPEN ACTION MODE> 
<CODE FILE MODE> 
<MFCU MODE > 

INPUT / OUTPUT / NEW 
LOCK / LOCK.OUT 
NO.REWIND / REVERSE 
CODE .FILE 


PUNCH / PRINT / 
INTERPRET / STACKERS 


CLOSE <FILE DESIGNATOR> % DEFINED ABOVE 
<CLOSE ATTRIBUTE PART> 


<EMPTY> 
<CLOSE ATTRIBUTE LIST> 
WITH <CLOSE ATTRIBUTE LIST> 


<CLOSE ATTRIBUTE> | 
<CLOSE ATTRIBUTE> <ATTRIBUTE SEPARATOR> 


<ATTRIBUTE SEPARATORD: := 


<CLOSE ATTRIBUTED ::= 


<CLOSE MODE> ::= 


<READ STATEMENT) ::= 


<READ PART> ::= 


<READ SPECIFIER> ::= 


<DISK READ SPECIFIER> 


<RECORD LOCK PART> ::= 


<RECORD ADDRESS PART> 


<RECORD ADDRESS>? ::= 


<REMOTE READ SPECIFIERD:: 


<REMOTE KEY PART>::= 


<REMOTE KEY)::= 


<QUEUE READ SPECIFIER> 


<QUEVE FAMILY 
MEMBER PART): := 


<QUEUVUE FAMILY MEMBERD: := 
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<CLOSE ATTRIBUTE LIST> 
» / <SLASH> / <EMPTY> 


<CLOSE MODE > 
/ CRUNCH / ROLLOUT / IF.NOT.CLOSED 


REEL / RELEASE / PURGE / REMOVE 


/ NO.REWIND / LOCK / CODE.FILE 


<READ PART); 
/ <READ PART>;<EOF PART > 
/ <READ PART>; <EXCEPTION PART > 
/ <READ PART>; <EOF PART> <EXCEPTION PART > 


<READ SPECIFIER>D 
/ <DISK READ SPECIFIER> 
/ “REMOTE READ SPECIFIER>D 
/ <QUEUE READ SPECIFIER> 


READ <FILE DESIGNATOR> 
(<ADDRESS GENERATOR) ) 


READ <RECORD LOCK PART> 
<FILE DESIGNATOR> 
<RECORD ADDRESS PART> 
(<ADDRESS GENERATOR) ) 
<EMPTY> / LOCK 


<EMPTY> 
/ {(<RECORD ADDRESS> ] 


<EXPRESSION> 

READ <FILE DESIGNATOR> 
<REMOTE KEY PART > 
(<ADDRESS GENERATOR?) 


<EMPTY> 
/ (<REMOTE KEY>]) 


<ADDRESS GENERATOR> 
READ <FILE DESIGNATOR> 


<QUEVE FAMILY MEMBER PART> 
(<ADDRESS GENERATOR) ) 


— <EMPTY> 


/ (<QUEUE FAMILY MEMBER) } 


<EXPRESSION> 
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<EOF PART> ::= ON EOF <EXECUTABLE STATEMENT) 
<EXCEPTION PART): := ON EXCEPTION <EXECUTABLE STATEMENT> 
<WRITE STATEMENT> ::= <WRITE PART): Oo 


/ <WRITE PART>;<EOF PART> 
/ <WRITE PART>;<EXCEPTION PART> 
/ <WRITE PART>;<EOF PART> <EXCEPTION PART > 


<WRITE PART> ::= | <WRITE SPECIFIERD 
/ <DISK WRITE SPECIFIERD 
/ “REMOTE WRITE SPECIFIERD 
/ <QUEVE WRITE SPECIFIER> 


<WRITE SPECIFIER> ::= WRITE <FILE DESIGNATOR> 
<CARRIAGE CONTROL PART > 
(<EXPRESSION>) 
/ WRITE <FILE DESIGNATOR> 
<CARRIAGE CONTROL PART> 


<CARRIAGE CONTROL PART> ::= <EMPTY> | . * 3 
| / <CARRIAGE CONTROL SPECIFIER> 


<CARRIAGE CONTROL 
SPECIFIER> ::= NO / SINGLE / DOUBLE / PAGE 
| — 4 <SKIP-TO-CHANNEL> / NEXT 


<SKIP-TO-CHANNEL> ::= <CHANNEL NUMBER> 


<CHANNEL NUMBER> ::= io OP SH cee DAYS 12 
<DISK WRITE SPECIFIER> ::= WRITE <RECORD LOCK PART> | 


<FILE DESIGNATOR> 
<RECORD ADDRESS PART > 
(<EXPRESSION> ) 


REMOTE WRITE , 

SPECIFIERD: := WRITE <FILE DESIGNATOR> 
<REMOTE KEY PART > 
(<EXPRESSION> ) 


<REMOTE KEY PART>::= <EMPTY> | 
| — -Y ~(KREMOTE KEY>] 


<REMOTE KEY): : -<ADDRESS GENERATOR> 


<QUEVE WRITE | 

SPECIFIER>::= WRITE <FILE DESIGNATOR> 
<QUEUE FAMILY MEMBER PART> 
‘(<ADDRESS GENERATOR>) 


<QUEVE FAMILY 
MEMBER PART>:: <EMPTY > | 


/ (<QUEUE FAMILY MEMBER>) 
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<QUEUE FAMILY MEMBER>: := <EXPRESSION> 


<EXCEPTION PART> 


ON EXCEPTION <EXECUTABLE STATEMENT> 


<SEEK STATEMENT > 


SEEK <RECORD LOCK PART> 
<FILE DESIGNATOR> 
[<RECORD ADDRESS> ] 


<ACCEPT STATEMENT) ::= ACCEPT <ADDRESS GENERATOR> 
<END-OF-TEXT SPECIFIER> 


CEND-OF~-TEXT 
SPECTF IER> 


<EMPTY> 
/ , END.OF.TEXT 


<DISPLAY STATEMENT> ::= DISPLAY <EXPRESSION> 
| <CRUNCH SPECIFIERD 


<CRUNCH SPECIFIERD ::= <EMPTY> 
| / , CRUNCHED 


<SPACE STATEMENT) ::= <SPACE PART>; 
/ <SPACE PART>; <EOF PART> 
<SPACE PART>; <EXCEPTION PART> 
/ <SPACE PART>; <EOF PART> <EXCEPTION PART) 


~ 


<SPACE PART> ::= SPACE <FILE DESIGNATOR> 
<SPACING SPECIFIERD 
<SPACING SPECIFIER> ::= <EXPRESSION> / TO <EXPRESSION> 
<SKIP STATEMENT> ::= SKIP <FILE DESIGNATOR> TO <CHANNEL NUMBER> 
<MODIFY INSTRUCTION>D ::= <CLEAR STATEMENT > 


/ “BUMP STATEMENT > 
/ <DECREMENT STATEMENT > 


<CLEAR STATEMENT> ::= CLEAR <ARRAY IDENTIFIER LIST> 

<ARRAY IDENTIFIER LIST> ::= <ARRAY IDENTIFIERD ADEFINED ABOVE 
/ <ARRAY IDENTIFIERD, 
/ SARRAY IDENTIFIER LIST> 

<BUMP STATEMENT> ::= BUMP <ADDRESS VARIABLE> <MODIF IER> 


<DECREMENT STATEMENT> ::= DECREMENT <ADDRESS VARIABLE> <MODIFIER>D 


i 


<NULL STATEMENT> ::5 ; 


it 


<STOP STATEMENT > STOP / STOP <EXPRESSTIOND> 


<FILE ATTRIBUTE 


STATEMENT> ::= 


<DYNAMIC FILE 
ATTRIBUTE LIST> ::= 


-<DYNAMIC FILE 
ATTRIBUTED ::= 


<DYAMIC MULTI-FILE 
IDENTIFICATION PART> 


<DYNAMIC MULTI-FILE 
IDENTIFICATIOND ::# 


<DYNAMIC FILE — 
IDENTIFICATION PART> 


<DYNAMIC FILE. 
IDENTIFICATION> ::= 


. 
@ 
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CHANGE <FILE DESIGNATOR> 
TO (<DYNAMIC FILE ATTRIBUTE LIST>) 


<DYNAMIC FILE ATTRIBUTED 
<DYNAMIC FILE ATTRIBUTED, 
<DYNAMIC FILE ATTRIBUTE LISTD 


<DYNAMIC MULTI-FILE IDENTIFICATION PART) 
<DYNAMIC FILE IDENTIFICATION PART> 
<DYNAMIC DEVICE PART> 

<DYNAMIC FILE PARITY PART> 
<DYNAMIC TRANSLATION PART> 
<DYNAMIC BUFFERS PART> 

<DYNAMIC VARIABLE RECORD PART> 
<DYNAMIC LOCK PART> 

<DYNAMIC BUFFERS PART> 

<DYNAMIC SAVE FACTOR PART> 
<DYNAMIC RECORD SIZE PART> 
<DYNAMIC RECORDS-PER-BLOCK PART> 
<DYNAMIC REEL NUMBER PART> | 
<DYNAMIC NUMBER-OF-AREAS PART> 
<DYNAMIC BLOCKS-PER-AREA PART> 
<DYNAMIC PACK.ID PART> 

<DYNAMIC ALL-AREAS~-AT-OPEN PART> 
<DYNAMIC AREA-BY-CYLINDER PART> 
<DYNAMIC EU.SPECIAL PART> 
<DYNAMIC EU. INCREMENTED PART> | 
<DYNAMIC USE. INPUT.BLOCKING PART> 
<DYNAMIC SORTER-STATION PART> — 
<DYNAMIC MULTI-PACK PART> 
<DYNAMIC END-OF-PAGE PART) 


<DYNAMIC OPEN-OPTION PART> 


<DYNAMIC REMOTE-KEY PART> 

<DYNAMIC NUMBER-OF-STATIONS PART> 
<DYNAMIC QUEUE-FAMILY-SIZE PART> 
<DYNAMIC FILE TYPE PART> 

<DYNAMIC WORK FILE PART> 

<DYNAMIC LABEL TYPE PART> 


MULTI. FILE. ID 
<DYNAMIC MULTI-FILE IDENTIFICATION> 


<EXPRESSIOND 
FILE. ID<DYNAMIC FILE IDENTIFICATIOND 


<E XPRESS ION> 


<DYNAMIC DEVICE PART> 


<DYNAMIC DEVICE 
SPECIFIERD ::= 


<DYNAMIC FILE 
PARITY PART> ::= 


<DYNAMIC PARITY 
SPECIFIER> ::= 


<DYNAMIC TRANSLATION 
PART> ::= 

“DYNAMIC TRANSLATION 
SPECIFIER>D ::= 
<DYNAMIC BUFFERS PART) 


<BYNAMIC NUMBER 
OF BUFFERS> ::= 


<DYNAMIC VARIABLE 
RECORD PART> ::= 


<DYNAMIC VARIABLE 
RECORD SPECIFIER> 


<DYNAMIC LOCK PART> 


<DYNAMIC LOCK 
SPECIFIER> ::= 


<DYNAMIC SAVE 
FACTOR PART> ::= 


<DYNAMIC SAVE FACTOR> 


<DYNAMIC RECORD 
SIZE PART> ::= 


<DYANMIC RECORD SIZE> 


<DYNAMIC REEL 
NUMBER PART> ::= 


<DYNAMIC REEL NUMBER> 


_ <DYNAMIC RECORDS- 
PER-BLOCK PART) ::5 
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—DEVICE<DYNAMIC DEVICE SPECIFIER> 


<EXPRESSIOND 
PARITY@-<DYNAMIC PARITY SPECIFIER> 
<EXPRESSION> 


TRANSLATION #- 
<DYNAMIC TRANSLATION SPECIFIER> 


<EXPRESSION> 


BUFFERS@-<DYAMIC NUMBER OF BUFFERS> 
<EXPRESSION> 


VARIABLE*-<DYNAMIC VARIABLE RECORD 


- SPECIFIER> 


<EXPRESSION> 


LOCK<-<DYNAMIC LOCK SPECIFIER> 
<EXPRESSI1ON> 


SAVE<-<DYNAMIC SAVE FACTOR? 


<EXPRESSION> 


RECORD.SIZE@-<DYNAMIC RECORD SIZE> 


EXPRESS ION> 


REEL“—<DYNAMIC REEL NUMBER> 


<EXPRESSION> 


RECORDS.PER. BLOCK < 


<DYNAMIC RECORDS-PER- ~BLOCK> 


<DYNAMIC RECORDS- 
PER-BLOCK> ::= 


-<DYNAMIC NUMBER-OF- 
AREAS PART> ::= 
<DYNAMIC NUMBER- 

OF - eee :32 

eoanne BLOCKS-PER- | 
AREA PART> ::= 
<DYNAMIC BLOCKS-PER 
AREA> ::2 

<DYNAMIC PACK.ID PART> 
<DYNAMIC PACK 
IDENTIFICATION> ::= 
<DYNAMIC ALL~AREAS- 
AT-OPEN PART> ::= 
<DYNAMIC ALL-AREAS- 
AT-OPEN SPECIFIER> ::2 
—<DYNAMIC AREA-BY 
CYLINDER PART). ::# 
<DYNAMIC ARE A-BY- 
CYLINDER SPECIFIER> 


<DYNAMIC EU. SPECIAL 
 PART> 3:5 


<DYNAMIC EU. SPECIAL 
SPECIFIER> i: 


-<DYNAMIC EU, ,DRIVE 
PART> : 38 


<DYNAMIC EU. DRIVE 
SPECIFIER> ::5 
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<EXPRESSIOND 


NUMBER. OF .AREAS @- 


<DYNAMIC NUMBER-OF ~ AREAS? — 


<EXPRESSION> 


BLOCKS.PER.AREA - | 
<DYNAMIC BLOCKS-PER-AREA> — 


<EXPRESSION> 
PACK.ID <— 
<DYNAMIC PACK IDENTIFICATION> | 


<EXPRESSION> 


ALL AREAS. AT.OPEN <—-_ - 
<DYNAMIC ALL-AREAS-AT-OPEN SPECIFIER> 


iaeneiel 


AREA.BY.CYLINDER + 


<DYNAMIC AREA-BY-CYLINDER SPECIFIER> 


<EXPRESS I OND 


EU.SPECIAL «+ : 

<DYNAMIC EU.SPECIAL SPECIFIER> 
EU.SPECIAL « | 

<DYNAMIC EU. SPECIAL SPECIFIER>, 
EU.ORIVE <~ 

<DYNAMIC EU.ORIVE PART> | 


CEXPRESSIOND 
EU.DRIVE<-<DYNAMIC EU.DRIVE SPECIFIER> 


<EXPRESSIOND 


<DYNAMIC EU. 
INCREMENTED PART> ::= 


<DYNA4MIC EU. INCREMENTED 
SPECIPIERD «25 


“DYNAMIC EU. 
INCREMENT SPECIFIER>D 


CDYNAMIC USE. INPUT. 
BLOCKING PART> ::= 


C<DYNAMIC USE. INPUT. 
BLOCKING SPECIFIER> 


i] 


<DYNAMIC SORTER STATION 


<DYNAMIC SORTER 
STATION SPECIFIER> ::= 


DYNAMIC MULTI- 
PACK PART>::= 
<DYNAMIC MUL TI-~ 
PACK SPECIFIER> :: 
<DYNAMIC END-OF - 
PAGE PART> ::= 


<DYNAMIC END-OF - 
PAGE SPECIF IER>D 


il 


<DYNAMIC OPEN- 
OPTION PART): := 


<DYNAMIC OPEN- 
OPTION SPECIFIER>::= 
<DYNAMIC REMOTE- 

KEY PART)>::= 


<DYNAMIC REMOTE- . 
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EU. INCREMENTED 

<DYNAMIC EU. INCREMENTED SPECIFIER> 
EU. INCREMENTED «— 

<DYNAMIC EU. INCREMENTED SPECIFIER>, 
FU. INCREMENT + | 

<DYNAMIC EU. INCREMENT SPECIFIERD> 


<EXPRESSIOND 
<EXPRESSION> 


USE. INPUT .BLOCK ING <— 
<DYNAMIC USE.INPUT.BLOCKING SPECIFIER> 


<EXPRESS1ON> 


SR.STATION «- | 
<DYNAMIC SORTER STATION SPECIFIERD 


<EXPRESSION> 


MUL TI-PACK <- 
<DYNAMIC MULTI-PACK SPECIFIER> 


<EXPRESSION> 


END.OF .PAGE.ACTION 
<DYNAMIC END-OF-PAGE SPECIFIERD 


CEXPRESSION> 


OPEN.OPTION +- | 
<DYNAMIC OPEN.OPTION SPECIFIER> 


<EXPRESSIOND- 


REMOTE-KEY «— 
<DYNAMIC REMOTE-KEY SPECIFIERD ~ 


KEY SPECIFIER>::= 
<DYNAMIC NUMBER-OF - 
STATIONS PART): := 
<DYNAMIC NUMBER-OF- 
STATIONS SPECIFIER>::= 
— <DYNAMIC QUEUE-FAMILY- 
SIZE PART>::= 
<DYNAMIC QUEUE- 
FAMILY-SIZE>::= 
<DYNAMIC FILE 
TYPE PART)>::= 
<DYNAMIC FILE 
TYPE SPECIFIER>::= 
<DYNAMIC WORK 
FILE PART)::= 
<DYNAMIC WORK 
FILE SPECIFIERS::= 
~<DYNAMIC LABEL 

TYPE PART>::= 
<DYNAMIC LABEL 
TYPE SPECIFIER>::= 
<ZIP STATEMENT) ::= 


CSEARCH STATEMENT>D ::= 


<SEARCH PART> ::2 


<SEARCH OBJECT? ::2 
<SEARCH RESULT> ::8 


<SEARCH RESULT MODE > 
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<EXPRESS] ON> 


NUMBER-OF-STATIONS < 
<DYNAMIC NUMBER- -OF-STATIONS SPECIFIER> 


<EXPRESSION> 


QUEUE~FAMILY-SIZE «+ | 
<DYNAMIC QUEUVE-FAMILY-SIZE> 


<EXPRESSION> 


FILE.TYPE < 
<DYNAMIC FILE TYPE SPECIFIER> 


<EXPRESSION> 


WORK .F ILE 
<DYNAMIC WORK FILE SPEC IF IER? 


<EXPRESSION> 


LABEL TYPE < 

<DYNAMIC LABEL TYPE SPECIFIER> 
<EXPRESSION> 

ZIP <EXPRESSION> 

<SEARCH PART> 

<SEARCH PART>; <FILE MISSING PARTD 
<SEARCH PART>; <FILE LOCKED PART> 
<SEARCH PART>; <FILE MISSING PART> 
<FILE LOCKED PART> | 


SEARCH.DIRECTORY (<SEARCH OBJECT>, 
(SEARCH RESULT>,<SEARCH RESULT MODE>) 


<ADDRESS GENERATOR> 
<ADDRESS GENERATOR> 


BIT / CHARACTER 
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<FILE MISSING PART> ::= ON FILE.MISSING <EXECUTABLE STATEMENT > 
<FILE LOCKED PART> ::= ON FILE.LOCKED <EXECUTABLE STATEMENT > 


<ACCESS FILE HEADER 
STATEMENT> ::= <ACCESS FILE HEADER PART>; 
/ <ACCESS FILE HEADER PART>; 
<FILE MISSING PART> 
/ <ACCESS FILE HEADER PART>; 
<FILE LOCKED PART > 
/ <ACCESS FILE HEADER PART>; 
<FILE MISSING PART> 
<FILE LOCKED PART > 


<ACCESS FILE HEADER 
PART> ::= READ.FILE.HEADER 
(<FILE NAME>, <DESTINATION FIELD)) 
/ WRITE.FILE.HEADER 
(<FILE NAME>, <SOURCE FIELD>) 


<FILE NAME> ::= <ADDRESS GENERATOR> 


<DESTINATION FIELD> <ADDRESS GENERATOR> 


<SOURCE FIELD> ::= <ADDRESS GENERATOR> 


<FILE MISSING PART> ON FILE.MISSING <EXECUTABLE STATEMENT > 


<FILE LOCKED PART> ::= ON FILE.LOCKED <EXECUTABLE STATEMENT> 
<SEND STATEMENT > <SEND PART>; 

/ <SEND PART>; <QUEVE FULL PART> 
<SEND PART>; <INVALID REQUEST PART > 


/ <SEND PART>; <QUEUE FULL PART> 
<INVALID REQUEST PART> 


~ 


<SEND PART> ::= SEND <MESSAGE SOURCE> TO <QUEUE> 


<MESSAGE SOURCE > <ADDRESS GENERATOR> 


<QUEUE> ::= <EXPRESSION> 

<QUEUE FULL PART> ::= ON Q.FULL “EXECUTABLE STATEMENT> 

<INVALID REQUEST PART> ::= ON INVALID.REQUEST <EXECUTABLE STATEMENT> 
<RECEIVE STATEMENT> ::= <RECEIVE PART>; 


/ <RECEIVE PART>; <QUEVE EMPTY PART> 

/ “RECEIVE PART>; <INVALID REQUEST PART> 

/ “RECEIVE PART>; <QUEUE EMPTY PART> 
<INVALID REQUEST PART> 


<RECEIVE PART> ::= RECEIVE <MESSAGE DESTINATION> 
| FROM <QUEUE > | 


<MESSAGE DESTINATIOND> 
~€QUEVE> ::= 


QUEUE EMPTY PART> ::= 


<INVALID REQUEST PART> :: 


<ARRAY PAGE TYPE 
STATEMENT> ::= 


<ARRAY PAGE TYPE 
DESIGNATOR> ::= 


<PAGED ARRAY NAME> 


<PAGE NUMBER> ::= 


<COROUTINE STATEMENT: := 


<COROUT INE 
ENTRY STATEMENT):: 


<COROUT INE 
TABLE SPECIFIERD:: 


<COROUT INE 
EXIT STATEMENT): := 


<WAIT STATEMENT): : 


/ 


/ 
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{ADDRESS GENERATOR> 

<EXPRESSION> 

ON Q.EMPTY <EXECUTABLE STATEMENT> 

ON INVALID.REQUEST <EXECUTABLE STATEMENT> 


<ARRAY PAGE TYPE DESIGNATOR> 
(<PAGED ARRAY NAME> ,<PAGE NUMBER>) 


MAKE .READ.ONLY 
MAKE .READ.WRITE 


CIDENTIFTER> 


<EXPRESSION> 


<COROUTINE ENTRY STATEMENT > 
<COROUTINE EXIT STATEMENT > 


ENTER.COROUT INE 
(<COROUTINE TABLE SPECIFIER>) 


<ADDRESS GENERATOR> 


EXIT.COROUT INE 
(<COROUTINE TABLE SPECIFIER>) 


WAIT (<NUMBER OF TENTHS OF SECONDS>) 
WAIT (<NUMBER OF TENTHS oe SECONDS>, 
DC.10.COMPLETE) 

WAIT (,D0C.10.COMPLETE) 


APPENDIX II: 


RESERVED AND SPECTAL WORDS 


THE FOLLOWING IS A LIST OF RESERVED WORDS IN SDL, COMPLETE AS OF 
1973. THESE WORDS MAY ONLY BE USED AS RESERVED WORDS. 


NOV. 


ACCEPT 


CASE 


CHANGE .STACK.SIZES 


CLOSE 
DECLARE 
DISPLAY 
DYNAMIC 
ELSE 
EQL 
FILE 
FIXED 
FORWARD 


LEQ 


NEG 


PAGED 

QUEUE *** 
READ 

REMAPS 
SEARCH .DIRECTORY 
SEGMENT . PAGE 
SLEEP 

SUBBIT 

THEN 

UNDO 

VARY ING 

WAIT 

ZAP 


AND 
BIT 


CAT 
CHARACTER 


DECREMENT 
DO 


END 

EXIT .COROUT INE 
FILLER 
FORMAL 
FROM 

GTR 
INTRINSIC 
LOCK 

MOD 

NOT 

ON 


PROCEDURE 


READ.FILE.HEADER 


WRITE 


*** DESCRIBED IN APPENDIX X: DC SDL 


AS 
BUMP 


CHANGE 
CLEAR 


DEF INE 
DUMMY 


ENTER.COROUT INE 
EXOR 

FINI 
FORMAL . VALUE 


LSS 


OPEN 


RECEIVED 

RETURN.AND.ENABLE. INTERRUPTS 
SEGMENT 

SKIP 

STOP 


TRANSFER.MESSAGE *** 


WRITE.FILE.HEADER 
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THE FOLLOWING IS A LIST OF SPECIAL WORDS IN SDL, COMPLETE AS OF 
NOV. 1973. EACH SPECIAL WORD HAS A PARTICULAR MEANING, HOWEVER 
IT MAY BE USED AS AN IDENTIFIER. IN THAT CASE, IT LOSES ITS 
SPECIAL SIGNIFICANCE IN SDL. 


ACCESS.FILE. INFORMATION ALLOCATE *** 


BASE .REGISTER 
COMMUNICATE 
CONTROL .STACK.BITS 
CONSOLE . SWITCHES 
CONVERT 

DATA. ADDRESS 

DC. INITIATE.10 *, 
DC.WRITE *## 
DECIMAL | 
DESCRIPTOR 
DISABLE. INTERRUPTS 
DISPATCH | 
DUMP 


DYNAMIC.MEMORY . BASE 


ENABLE. INTERRUPTS 
ERROR .COMMUNICATE 
EXECUTE 

FETCH 

FLUSH ***# 

HALT 

HASH. CODE ) 
INITIALIZE.VECTOR 


-INTERROGATE. INTERRUPT .STATUS 


LENGTH 

LOCATION 

MAKE .DESCRIPTOR 
MAKE .READ.WRITE 
MESSAGE.INFO *** 
NAME .OF .DAY 
NEXT. ITEM 
NOTRACE 

OVERLAY 

PARITY .ADDRESS 
QUEUE.INFO *** 
READ.CASSETTE 
READ .OVERLAY 
REMOVE ***# 
REVERSE .STORE 
SAVE .STATE 
SEARCH. SERIAL .LIST 
SEARCH.SDL.STACKS 
SORT 

SORT .RETURN 

SORT .STEP .DOWN 
SORT . UNBLOCK 


BINARY 

COMPILE .CARD. INFO 
CONTROL .STACK. TOP 
CONV 


DATE 


DC.WAIT *, *** 
DEBLANK 
DELIMITED. TOKEN 
DE.ALLOCATE *** 
DISABLE.QUEUE *** 
DISPLAY .BASE 

DUMP .FOR.ANALYSIS 


ENABLE.QUEUE *** 
EVALUATION.STACK. TOP 


FETCH.COMMUNICATE. MSG. PTR 


FREEZE .PROGRAM 
HARDWARE .MONI TOR *** 


INSERT *** 
LIMIT.REGISTER 


MAKE .READ.ONLY 
MCS.COMMUNICATE *** 
M.MEM.SIZE 

NAME .STACK. TOP 
NEXT. TOKEN 


PREVIOUS.ITEM 


READ.FPB~ 
REINSTATE 
RESTORE 


SEARCH.LINKED.LIST 
S.MEM.SIZE 


SORT .FILE.F IXUP 
SORT .SEARCH 
SORT . SWAP 

SWAP 
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SPO. INPUT .PRESENT 


THAW .PROGRAM THREAD. VECTOR 
TIME TRACE 

VALUE .DESCRIPTOR 

WRITE .FPB | WRITE .OVERLAY 


* TEMPORARY - TO BE REMOVED IN THE NEAR FUTURE 
** SEE APPENDIX IV 


*** DESCRIBED IN APPENDIX X: DC SDL 


APPENDIX III: SDL CONTROL CARD OPTIONS 


EVERY SDL CONTROL CARD MUST HAVE A “$" IN COLUMN ONE. COLUMNS 
73-80 MAY BE USED AS A SEQUENCE FIELD. NOTE THAT ONCE AN OPTION 
HAS BEEN TURNED ON (OFF), IT WILL REMAIN ON (OFF) UNTIL 
EXPLICITLY TURNED OFF (ON). 


CONTROL CARD OPTIONS FOR B5500 


<CONTROL CARD> ::= $ <CONTROL STATEMENT> 


<CONTROL STATEMENT> ::= <CONTROL OPTION LIST> 
/ <VOID OPTION> 


<CONTROL OPTION LIST> ::= <CONTROL OPTION> 
i / <CONTROL OPTION> 
<CONTROL OPTION LIST> 


<CONTROL OPTION>D ::= <CONTROL OPTION WORD> 
/ NO <CONTROL OPTION WORD> 
/ <DEBUG OPTION> 
/ <SEQUENCE OPTION> 
/ <PAGE OPTION> 
/ <UPDATE OPTION> 
/ <STACK SIZE LIST> 
/ <INTERPRETER OPTION>D 
<CONTROL OPTION WORD> ::= LIST / LISTALL / SINGLE / SGL 
/ DOUBLE / CODE / CONTROL / NEW 
/ CHECK / MAP / XMAP / DETAIL 
/ AMPERSAND / SIZE 
/ HEX / PROFILE / PPROFILE 
/ NODUPLICATES 
<DEBUG OPTIOND ::= DEBUG <DEBUG PARAMETER> 
<DEBUG PARAMETER> = <EMPTY> 
/ <NUMBER> 
<NUMBER> ::= <UNSIGNED INTEGER, 8 OR LESS DIGITS> 
= NO SEQ 


<SEQUENCE OPTION> 
- / SEQ <SEQUENCE PARAMETERS> 


<SEQUENCE PARAMETERS> ::= <BASE > 
| / <BASE> <INCREMENT> 


<BASE> ::= / <NUMBER> 

<INCREMENT> ::= <NUMBER> 

<PAGE OPTION> ::= PAGE 

<UPDATE OPTION) ::= UPDATE _ 

<STACK SIZE LIST) ::= {STACK SIZE DESIGNATOR> 


/ <STACK SIZE DESIGNATOR> 
<STACK SIZE LIST> 


<STACK SIZE DESIGNATOR> ::=  <STACK DESIGNATOR> <STACK SIZE> 


<STACK DESIGNATOR> ::= VSSIZE / NSSIZE / ESSIZE 
/ CSSIZE / PPSSIZE / DYNAMICSIZE 
<STACK SIZED ::= <NUMBER> 


<VOID OPTION> ::= © — VOID <TERMINATING SEQUENCE FIELD> 
<TERMINATING SEQUENCE | 
FIELD> ::= <EMPTY> | 

/ <EXACTLY 8 CHARACTERS> 


<INTERPRETER OPTIOND ::= _ INTERPRETER <INTERPRETER NAME> 


<INTERPRETER NAME> <INTERPRETER MFID> 
/ <INTERPRETER MFID> <SLASH> 
<INTERPRETER IDENTIFIERD 


/ <SLASH> <INTERPRETER IDENTIFIER> 


<INTERPRETER MFID> ::= <IDENTIFIER> 

< INTERPRETER . 

IDENTIFIER> ::= <IDENTIFIER> 

SEMANTICS: 

LIST LISTS SDL SOURCE INPUT WHICH HAS BEEN COMPILED. 
| "NO LIST" WILL TURN OFF "LISTALL" (IF ALSO 

SPECIFIED) AS WELL AS "LIST", | 
LISTALL LISTS ALL SDL SOURCE INPUT (WHETHER OR NOT 


CONDITIONALLY EXCLUDED). "LISTALL" WILL TURN ON 
"LIST". BUT, "NO LISTALL" WILL NOT TURN OFF 
"LIST™. a 


SINGLE (SGL) SINGLE SPACE LISTING WHEN PRINTING. 


DOUBLE 


CODE 


CONTROL 


NEW 


MAP 


XMAP 


DETAIL 


AMPERSAND 


SIZE 


HEX 


PROF ILE 


PPROF ILE 


DEBUG 


SEQ 


CHECK 


NODUPLICATES 


NO SEQ 


PAGE 


UPDATE 


VSSIZE 


NSSIZE 


ESSTZe 


CSS1LZE 
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DOUBLE SPACE LISTING WHEN PRINTING. 
PRINT GENERATED CODE. 

PRINT CONTROL CARDS. 

CREATE NEW SOURCE FILE. 

PRINT CODE MAPPING INFORMATION. 


CREATE EXTENDED CODE MAP FILE POST 


COMPILATION ANALYSIS AND PRINTING. res 
PRINT EXPANSION OF DEFINE INVOCATIONS. 
PRINT THOSE AMPERSAND CARDS WHICH ARE EXAMINED. 
PRINT SEGMENT SIZES BY NAME AT END OF COMPILE. 


ADDRESSES PRINTED IN HEXADECIMAL WHEN "CODE" OR 


"MAP" OPTIONS ARE USED. 
SEE APPENDIX IV 

SEE APPENDIX IV 

COMPILER DEBUG USE ONLY. 
RESEQUENCE OUTPUT FILE. 


THE SOURCE INPUT WILL BE CHECKED FOR SEQUENCE 
ERRORS. 


NEWLY DECLARED IDENTIFIERS WILL NOT BE CHECKED 
FOR UNIQUENESS. THE USER MUST GUARANTEE THAT 
THERE ARE NO DUPLICATES BEFORE USING THIS OPTION. 
THIS SHOULD BE USED FOR LONG PROGRAMS ONLY. 


TURNS OFF THE "SEQ" OPTION. 


PAGE EJECT, IF LISTING. 

THE PRIMARY SOURCE IS A TAPE OR DISK FILE WHICH 
WILL HAVE THE CARDS FROM THE CARD READER MERGED 
INTO IT. 

VALUE STACK SIZE 

NAME STACK SIZE 

EVALUATION STACK SIZE. 


CONTROL STACK SIZE 


PPSSIZE 
DYNAMICSIZE 


NO 
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PROGRAM POINTER STACK SIZE 


AMOUNT OF CORE USED FOR PAGED ARRAY PAGES 


"NO" PRECEDING AN OPTION (WHICH ALLOWS IT) WILL 


. TURN THAT OPTION OFF. 


VOID 


INTERPRETER 


NOTES AND REST 


1. UNL 
"UP 
1S 
SPE 
IND 


a. IF 
OPT 


THE "VOID" CARD WILL VOID IMAGES ON THE PRIMARY 
INPUT FILE WHICH HAVE SEQUENCE FIELDS WHICH ARE 
LESS THAN OR EQUAL TO THE <TERMINATING SEQUENCE 
FIELD> APPEARING ON THE "VOID" CARD. IF THE 
<TERMINATING SEQUENCE FIELD> IS MISSING, THEN THE 
ONLY SOURCE IMAGE VOIDED IS THAT WITH THE SAME 
SEQUENCE FIELD AS THE "VOID" CARD. NOTE THAT THE 
"VOID" CARD MAY DELETE IMAGES IN THE SECONDARY 
(CARD) FILE. | 


CHANGE INTERPRETER ID AND/OR INTERPRETER MFID. 


RICTIONS: 


ESS OTHERWISE SPECIFIED ( THROUGH THE 
DATE" OPTION), THE PRIMARY SOURCE OF INPUT 
THE CARD READER. ONCE "UPDATE" HAS BEEN 
CIFIED, IT IS NOT POSSIBLE TO AGAIN 
ICATE "CARDS ONLY". 


NO CONTROL CARDS ARE USED, THE DEFAULT 
IONS ARE LIST, DOUBLE, AND AMPERSAND; ALL 


INPUT WILL BE FROM CARDS. 


Ss — OPT 


IONS ARE TURNED OFF ONLY THROUGH THE 


APPEARANCE OF "NO" FOLLOWED BY THE OPTION 
WORD. NOTE THAT "NO" AND THE OPTION WORD ARE 
SEPARATED BY AT LEAST ONE BLANK. 


CONTROL CARD OPTIONS FOR B1700 


<CONTROL CARD> 


PS $ <CONTROL STATEMENT> 


<CONTROL STATEMENT> ::= <CONTROL OPTION LIST> 


<CONTROL OPTION LIST> 


/ <VOID OPTION> 


<CONTROL OPTION>D 
~/ CONTROL OPTIOND> 
<CONTROL OPTION LIST> 


<CONTROL OPTION> ::= ~ €CONTROL OPTION WORD> 
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NO <CONTROL OPTION WORD> 
<DEBUG OPTIOND>D 

<SEQUENCE OPTION> 

<PAGE OPTIOND> 

<MERGE OPTION> 

<STACK SIZE LIST> | 
<INTERPRETER OPTION> 
<INTRINSIC OPTION>D 
<RECOMPILE OPTION> 

SIZE / FORMAL .CHECK 


~~ RRR RRR RS 


<CONTROL OPTION WORD> ::= LIST / LISTALL / SINGLE 

SGL / DOUBLE / CODE 

CONTROL / NEW / SUPPRESS 

XMAP / CHECK / PROFILE / PPROFILE 

DETAIL / AMPERSAND / NO.DUPLICATES 
NO.SOURCE / MONITOR 

XREF / XREF.ONLY / EXPAND.DEFINES 


~ NN RRS 


<DEBUG OPTION> ::= DEBUG <NUMBER> 
<NUMBER> ::= <UNSIGNED INTEGER, 8 OR LESS DIGITS> 


<SEQUENCE OPTIOND ::= ~ NO SEQ 
/ SEQ <SEQUENCE PARAMETERS > 


<SEQUENCE PARAMETERS> ::= <BASE > 
/ <INCREMENT> 
/ <BASE> <INCREMENT> 


<BASE> ::= <NUMBER > 
- CINCREMENT> : : = + <NUMBER> 
<PAGE OPTION>D ::= PAGE 
<MERGE OPTION> ::= MERGE 
<STACK SIZE LIST> ::= <STACK SIZE DESIGNATOR> 


/ <STACK SIZE DESIGNATOR>D 
<STACK SIZE LIST> 


<STACK SIZE 


DESIGNATOR> ::= <STACK DESIGNATOR> <STACK SIZE> 
<STACK DESIGNATOR>D ::= VSSIZE / NSSIZE / ESSIZE 

/ CSSIZE / PPSSIZE / DYNAMICSIZE 
<STACK SIZED ::= <NUMBER > 
<VOID OPTION ::= VOID <TERMINATING SEQUENCE FIELD> 


TERMINATING SEQUENCE 
FIELD> ::= | <EMPTY> 
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_ J SEXACTLY 8 CHARACTERS> 


<INTERPRETER OPTION> ::= | INTERPRETER <INTERPRETER NAME> 


<INTERPRETER NAME> ::= | <INTERPRETER MULTI-FILE IDENTIFICATION> 


/ SINTERPRETER MULTI-FILE IDENTIFICATION> 
<SLASH> 
-<INTERPRETER IDENTIFICATION> 


<INTERPRETER MULTI-FILE 


IDENTIFICATION>D ::= <IDENTIF ITER> 
< INTERPRETER | 
IDENTIFICATION> ::= <IDENTIFIER>D 
SINTRINSIC OPTION> ::= INTRINSIC 


<INTRINSIC FAMILY NAME> 


<INTRINSIC FAMILY 


NAME> ::= 


<IDENTIFIER> 


<RECOMPILE OPTION): := CREATE .MASTER 


/ RECOMPILE 


SEMANTICS IN ALPHABETICAL ORDER: 


AMPERSAND 


CHECK 


CODE 

CONTROL 
CREATE .MASTER 
CSSIZE 
DEBUG 
DETAIL 
DOUBLE 
DYNAMICSIZE 
ESSIZE 


FORMAL .CHECK 


PRINTS THOSE AMPERSAND CARDS WHICH ARE EXAMINED. 


THE SOURCE INPUT WILL BE CHECKED FOR SEQUENCE 
ERRORS. 


PRINTS GENERATED CODE. 
PRINTS CONTROL CARDS. 
SEE APPENDIX VIII. 
CONTROL STACK SIZE. 
COMPILER DEBUG USE ONLY. 


PRINTS EXPANSION OF DEFINE INVOCATIONS. 


DOUBLE SPACE LISTING WHEN PRINTING. 


AMOUNT OF MEMORY USED FOR PAGED ARRAY PAGES. 


EVALUATION STACK SIZE. 


PROCEDURE ACTUAL PARAMETERS AND VALUES RETURNED | 
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FROM TYPED PROCEDURES WILL BE CHECKED 
RESPECTIVELY AGAINST THEIR CORRESPONDING FORMAL 
PARAMETERS AND PROCEDURE FORMAL TYPES. 


EXPAND.DEFINESCAUSES DEFINE EXPANSIONS TO BE CROSS-REFERENCED 
(USED IN CONJUNCTION WITH XREF OR XREF.ONLY). 


INTERPRETER CHANGES THE INTERPRETER ID OR MFID, OR BOTH. 


INTRINSIC CHANGES THE FAMILY NAMES OF INTRINSICS TO BE 
USED. 

LIST LISS THE SOURCE INPUT WHICH WAS COMPILED. "NO 
LIST" WILL ALSO TURN OFF "LISTALL". 

LISTALL LISTS ALL SDL SOURCE INPUT (WHETHER OR NOT 
CONDITIONALLY EXCLUDED). "“LISTALL" TURNS ON 
"LIST", BUT "NO LISTALL"” WILL NOT TURN OFF 
ge fae 

MERGE THE PRIMARY SOURCE FILE IS ON TAPE OR DISK WHICH 
WILL HAVE THE CARDS, FROM THE CARD READER, MERGED 
WITH IT. 

MONITOR SEE APPENDIX IX: THE SDL MONITOR FACILITY 

NEW | CREATES A NEW SOURCE FILE. 


NO "NO" PRECEDING AN OPTION (WHICH ALLOWS IT) WILL 
| TURN THAT OPTION OFF. 


NO.DUPLICATES NEWLY DECLARED IDENTIFIER WILL NOT BE CHECKED FOR 
UNIQUENESS. THE PROGRAMMER MUST GUARANTEE THAT 
THERE ARE NO DUPLICATES BEFORE USING THIS OPTION. 
IT WILL REDUCE COMPILE TIME FOR LARGE PROGRAMS 


ONLY. 
NO SEQ TURNS OFF THE "SEQ" OPTION. 
NO .SOURCE PROGRAM SOURCE IMAGES WILL NOT BE SAVED, THEREBY 


SHORTENING THE COMPILER WORK FILE. NO SOURCE 
LISTING WILL BE POSSIBLE WHEN THIS OPTION IS 
SPECIFIED. THIS SHOULD BE USED WITH LONG PROGRAMS 


ONLY. 
NSSIZE NAME STACK SIZE. 
PAGE PAGE EJECT IF LISTING. 
PPSSTZE PROGRAM POINTER STACK SIZE. 


RECOMPILE SEE APPENDIX VIII 


SEG RESEQUENCES OUTPUT FILE. 


SINGLE (SGL) 
SIZE 


SUPPRESS 


VOID 


VSSIZE 


XMAP 
XREF 


XREF . ONLY 


SINGLE SPACES LISTING WHEN PRINTING. © 
PRINTS SEGMENT SIZES BY NAME AT END OF COMPILE. 


SUPPRESSES WARNING MESSAGES. TO SUPPRESS SEQUENCE 


ERROR MESSAGES, TURN OFF "CHECK". 


THE VOID OPTION WILL VOID RECORDS IN THE PRIMARY 
FILE WHICH HAVE SEQUENCE FIELDS LESS THAN OR 
EQUAL TO THE <TERMINATING SEQUENCE FIELD>. IF THE 
FIELD IS OMITTED, ONLY THE RECORD WITH THE 
SEQUENCE NUMBER CORRESPONDING TO THE "VOID CARD" 
SEQUENCE NUMBER WILL BE DELETED. THE VOID OPTION 
WILL NOT DELETE IMAGES IN A’ SECONDARY (CARD) 
SOURCE FILE. ” 


VALUE STACK SIZE. 


CREATES AN EXTENDED CODE MAP FILE FOR POST 
COMPILATION ANALYSIS. 


PRODUCES A CROSS-REFERENCE LISTING OF THE 
PROGRAM. — | | 


PRODUCES A CROSS-REFERENCE LISTING AND THEN 
TERMINATES THE COMPILATION. 


NOTE: ALL CONTROL CARDS MAY USE "&" IN COLUMN 1 IN 
PLACE OF "S$". THOSE CONTROL CARDS WITH "&" IN 
COLUMN 1 WILL BE PERMANANTLY PLACED IN A NEW 
SOURCE FILE WHENEVER ONE IS MADE. THEY MAY 
ALSO BE CONDITIONALLY INCLUDED OR EXCLUDED 
DURING COMPILATION. 
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APPENDIX IV: PROGRAMMING OPTIMIZATION 


THE FOLLOWING CONTROL CARD OPTIONS (SEE APPENDIX III) CAN BE 
USEFUL TO THE PROGRAMMER WHO WISHES TO DETERMINE THE MOST TIME 
CONSUMING PART(S) OF HIS PROGRAM. THE PURPOSE OF THESE CONTROL 
OPTIONS IS TO POINT OUT THE PARTS OF THE PROGRAM WHICH ARE THE 
MOST TIME CONSUMING AND/OR HEAVILY USED. | 


WHEN COMPILING ON THE B5500, IF ANY OF THESE CONTROLS ARE USED, 
THE FOLLOWING CARD MUST APPEAR IN THE PROCEDURE SECTION OF THE 
PROGRAM: 


& LIBRARY SDLPROFILE / ARRAYPRINTER 


IN ADDITION, THERE MUST BE A CLOSE ON THE PRINTER BEFORE "FINI" 
OR ANY <STOP STATEMENT>. | 


PPROF ILE ESTABLISHES A DYNAMIC ARRAY, EACH ELEMENT OF 
WHICH IS A COUNTER FOR ONE PROCEDURE. THE INDEX 
NUMBER FOR EACH PROCEDURE APPEARS IN THE LISTING 
FOLLOWING THE <PROCEDURE IDENTIFIER>. THE VALUE 
OF THE COUNTER WILL REFLECT THE NUMBER OF 
ENTRANCES TO THE PROCEDURE IN QUESTION. THOSE 
WITH THE HIGHEST COUNTERS SHOULD BE INVESTIGATED 
WITH THE "PROFILE" OPTION. 


PROF ILE ESTABLISHES A DYNAMIC ARRAY, EACH ELEMENT OF. 
WHICH IS A COUNTER FOR ONE BRANCHING OPERATION 
(<DO GROUP>, <IF STATEMENT>, OR <CASE STATE- 
MENT>). THE INDEX INTO THE ARRAY WILL APPEAR IN 
THE LISTING FOLLOWING THE STATEMENT IN QUESTION. 
THOSE BRANCHES WITH THE HIGHEST COUNTER VALUES 
ARE THE BRANCHES MOST HEAVILY USED. 


HARDWARE MONITOR 


<HARDWARE MONITOR , | ; 
DESIGNATOR> ::= | HARDWARE .MONITOR (<EXPRESSIOND) ) 


THE B1700 IS EQUIPPED WITH A HARDWARE MONITOR WHICH MAY BE 
MANUALLY WIRED TO SUIT THE NEEDS OF THE PROGRAMMER. THE DEVICE 
CAN BE USEFUL AS A TIMER OR A’ COUNTER TO MONITOR PROGRAM 
EFFICIENCY. © oe 


e0-e 


THE LOW-ORDER 8 BITS OF THE <EXPRESSION> IS USED AS THE 
LOW-ORDER 8 BITS OF THE M-INSTRUCTION "MONITOR". FOR WIRING 
INSTRUCTIONS OF THE HARDWARE DEVICE SEE "COMPUTER PERFORMANCE 
MONITOR II: SYSTEM SUMMARY MANUAL". 
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APPENDIX V: SYSTEM CONTROL CARDS 


— ow eae eR cu cue cee oe aw ED er eee em eee ame ae eee eum ae ame ane emee qe ctw we an cum cone cm 


THERE ARE TWO BASIC FORMATS FOR THE SYSTEM CONTROL CARDS. THEY 
ARE AS FOLLOWS: 
A. THE PRIMARY SOURCE FILE IS ON CARDS. 
?, COMPILE <PROG ID>/<USER ID> WITH | SDL LIBRARY| <ACCT INFO> 
MSDL || SYNTAX 
* ? FILE NEWTAPE = <FILE MFID>/<FILE iad a 
TAPE 


? DATA <USER ID> 


* $$ NEW 
<SDL PROGRAM> 
FINI 
? END 
- THESE CARDS MUST BE INCLUDED IF THE FILE IS TO 


BE SAVED ON TAPE OR DISK. 


B. JHE PRIMARY SOURCE FILE IS ON TAPE OR DISK, AND THE 
SECONDARY SOURCE FILE IS ON CARDS. | 
? COMPILE <PROG ID>/<USER ID> WITH | SDL | LIBRARY| <ACCT INFO> 
MSDL || SYNTAX 
? FILE TAPE = <PROG ID>/<USER ID> | SERIAL 
TAPE 
* ? FILE NEWTAPE = <FILE MFID>/<FILE ID> | SERIAL 
TAPE 
? DATA <USER ID> 
$ UPDATE 
* $$ NEW 
<PATCHES TO SDL PROGRAM> 


<9-S CARD> (SEQUENCE FIELD IS 99999999) 
? END 


* THESE CARDS MUST BE INCLUDED IF THE UPDATED 
FILE IS TO BE SAVED ON TAPE OR DISK. 


oleae, 


THE " " SPECIFIES ANY INVALID CHARACTER. THE "COMPILE" CARD 
SHOULD SPECIFY "SDL" IF THE PROGRAM IS TO BE RUN ON ENGINEERING 
SYSTEM #2, OR "MSDL" IF MARKETING SYSTEM #2, NOTE THAT a IS 
A TEMPORARY DISTINCTION AND IS SUBJECT TO CHANGE. 


IF OBJECT CODE IS TO BE GENERATED, THE "LIBRARY" OPTION SHOULD 
BE USED. THE "SYNTAX" OPTION WILL CHECK ONLY FOR SYNTAX ERRORS 
AND GENERATE A SOURCE LISTING. 


THE FORMAT FOR THE <ACCT INFO> IS AS FOLLOWS: 


#<4-DIGIT COST CENTER> <1 SPACE> <5-DIGIT PROJECT NUMBER> 


AN EXAMPLE "COMPILE CARD" IS: 


? COMPILE MYPROGRAM/SMITH WITH SDL LIBRARY #1234 56789 


TO DUMP THE OBJECT CODE TO CARDS, THE FOLLOWING CONTROL CARDS 
SHOULD BE PLACED JUST BEFORE THE END-CARD: 


? EX SDL/DUMPER <ACCT INFO> 

? FILE CODEFILE = <PROG ID>/<USER ID> | SERIAL 
Ea 

? COMMON = 9 


SDL FILE NAMES 


CARD CARD INPUT FILE 

TAPE PRIMARY SOURCE FILE IF $ UPDATE IS USED 
NEWT APE NEW SOURCE FILE IF $ NEW IS aac | 
LINE PRINTER FILE 


eis 


SYSTEM CONTROL CARDS FOR B1700 


THERE ARE TWO BASIC DECK SETUP FORMATS. THEY ARE: 


A. THE PRIMARY SOURCE FILE IS ON CARDS. 


* 


? <SYSTEM COMPILE CARD> 

? <FILE EQUATE CARD FOR FILE "NEWSOURCE"> 
? DATA CARDS 

$ NEW 

<SDL PROGRAM> 

FINI 

? END 


IF THE PRIMARY SOURCE FILE IS TO BE SAVED ON 
TAPE OR DISK, THESE CARDS MUST BE INCLUDED. 


B. THE PRIMARY SOURCE FILE IS ON TAPE OR DISK. 


<SYSTEM COMPILE CARD> 

<FILE EQUATE CARD FOR FILE "SOURCE"> 

<FILE EQUATE CARD FOR FILE "“NEWSOURCE"> 
DATA CARDS 

MERGE 

NEW 

<PATCHES TO SDL PROGRAM> 

<9-S CARD> (SEQUENCE FIELD CONTAINS 99999999) 
? END 


AA yuwunn 


IF THE MERGED FILE IS TO BE SAVED, THESE CARDS 
MUST BE INCLUDED. 


NOTE REFER TO THE B1700 MCP DOCUMENTATION FOR’ THE 


EXACT FORMAT OF THE "COMPILE" AND "FILE 
EQUATE" CARDS. 


SDL FILE NAMES 


CARDS | CARD INPUT FILE 

SOURCE PRIMARY SOURCE FILE IF "$ MERGE" IS USED 
NEWSOURCE UPDATED SOURCE FILE IF "$ NEW" IS USED 
LINE LINE PRINTER FILE , 


een 


APPENDIX VI: CONDITIONAL COMPILATION 


THE CONDITIONAL COMPILATION FACILITY ALLOWS THE USER TO 
SELECTIVELY COMPILE BLOCKS OF CODE WITHOUT THE NECESSITY OF 
PHYSICALLY ADDING OR REMOVING RECORDS. 


<CONDI TIONAL INCLUSION> RECORDS ARE ALWAYS WRITTEN TO A NEW FILE 
(IF ONE IS CREATED), WHETHER OR NOT THEY ARE COMPILED. IF 

CONDITIONAL COMPILATION RECORDS ARE TO BE PRINTED WITH THE 

SOURCE LISTING, THEN "LISTALL" MUST APPEAR ON THE $-CARD. IF 

NOT SPECIFIED, ONLY THOSE CONDITIONAL COMPILATION RECORDS WHICH 

WERE COMPILED ARE PRINTED. 


THE BNF FOR THE CONDITIONAL COMPILATION IS AS FOLLOWS: 


<CONDI TIONAL INCLUSION> ::= <SET STATEMENT> 
<RESET STATEMENT > 
<PAGE STATEMENT > 
<LIBRARY STATEMENT > 
<IF BLOCK> 


~ NR 


<SET STATEMENT> ::= SET <SET SYMBOL LIST> 


<SET SYMBOL LIST> ::= <SET SYMBOL > 
/ <SET SYMBOL LIST> 
<SET SYMBOL > 


<SET SYMBOL> ::= <BOOLEAN SYMBOL> 


<BOOLEAN SYMBOL> ::= <LETTER> 
/ <BOOLEAN SYMBOL> <LETTER> 
/ <BOOLEAN SYMBOL> <DIGIT> 


<RESET STATEMENT> ::= RESET <RESET SYMBOL LIST> 


<RESET SYMBOL LIST> <RESET SYMBOL > 
/ <RESET SYMBOL LIST> 


<RESET SYMBOL > 


<RESET SYMBOL> ::= <BOOLEAN SYMBOL > 


<PAGE STATEMENT> ::= PAGE 


<LIBRARY STATEMENT > 


LIBRARY <FILE NAME> 


<FILE NAME>: := | <MULTI-FILE IDENTIFIERD> 


<PACK IDENTIFIER>::= 
<MULTI-FILE IDENTIFIER>::= 
<FILE IDENTIFIER>::= 
<SLASH): := 


<IF BLOCK>D ::= 


<IF STATEMENT> ::= 


<BOOLEAN EXPRESSION> ::= 


<BOOLEAN FACTOR> ::= 


<BOOLEAN SECONDARY> ::= 


<BOOLEAN PRIMARY > 


<INCLUSION BLOCK> :: 


<SDL SOURCE 

IMAGE BLOCK> ::= 
<END STATEMENT) ::= 
<TRUE PART) ::= 


<ELSE STATEMENT> ::= 


ee-e 


<MULTI-FILE IDENTIFIER> <SLASH> 
<FILE IDENTIFIERD | 

<PACK IDENTIFIER> <SLASH> 
<MULTI-FILE IDENTIFIER> <SLASH> 
<PACK IDENTIFIER> <SLASH> 
<MULTI-FILE IDENTIFIER> <SLASH> 
<FILE IDENTIFTIER> 


<IDENTIFIERD 
<IDENTIFIERD 
<IDENTIFIERD 

/ 

<IF STATEMENT > 
<INCLUSION BLOCK> 

<END STATEMENT > 

<IF STATEMENT > 

<TRUE PART> 

<INCLUSION BLOCK> 

<END STATEMENT > 

IF <BOOLEAN EXPRESSION> 
<BOOLEAN FACTOR> 
<BOOLEAN EXPRESSION> OR 
<BOOLEAN FACTOR> 
<BOOLEAN SECONDARY > 
<BOOLEAN FACTOR> AND 
<BOOLEAN SECONDARY > 


<BOOLEAN PRIMARY> 
NOT <BOOLEAN PRIMARY> 


<SET SYMBOL > 
<RESET SYMBOL > 


<SDL SOURCE IMAGE BLOCK> 

<IF BLOCK> 

<EMPTY> 

<1 OR MORE SDL SOURCE IMAGES> 

END 

<INCLUSION BLOCK> <ELSE STATEMENT> 


ELSE 
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ALL RECORDS CONTAINING CONDITIONAL COMPILATION STATEMENTS MUST 
HAVE AN AMPERSAND (8) IN COLUMN 1 (EXCEPT THE <SDL SOURCE IMAGE 
BLOCK>). IN ADDITION, A COMPLETE CONDITIONAL INCLUSION 
STATEMENT MUST BE CONTAINED ON ONE AMPERSAND CARD. COLUMNS 2-72 
ARE FREE-FIELD, AND COLUMNS 73-80 MAY CONTAIN SEQUENCE NUMBERS. 


NOTE THAT <BOOLEAN EXPRESSION>S MAY CONTAIN THE } LOGICAL 
OPERATORS ‘(FROM LOWEST PRECEDENCE TO HIGHEST) "OR", "AND", AND 
"NOT". | 


THE <PAGE STATEMENT> WILL CAUSE A PAGE EJECT IF THE SOURCE FILE 
'S BEING LISTED. THE <LIBRARY STATEMENT> WILL CAUSE THE IMAGES 
FROM THE FILE SPECIFIED BY <FILE NAME> TO BE INCLUDED IN’ THE 
SOURCE PROGRAM. | 


AS AN EXAMPLE, CONSIDER THE FOLLOWING SDL SOURCE STATEMENTS 
ILLUSTRATING NESTED CONDITIONAL COMPILATION STATEMENTS AND <SDL 


SOURCE IMAGE BLOCKS. | 
| COL | FREE-FIELD: COLS 2-72 | SEQ: 73-80 


ios A ¢ IT 0100 
® RESET DE | 0200 
DECLARE (A,B) FIXED: 0300 
8 IF A AND E 0400 


AB; 0500 


—®& ELSE 0600 
AX CAT Y4+7; X WHOLE SOURCE IMAGE IS INCLUDED 0700 
Reo 08s0o0 

| BA; 0900 
~& END | 1000 

——~-% END 1100 
——-8 IF B OR D | 1200 
BUMP B; | | 1300 
——§& ELSE 1400 
BUMP A; | 1500 
---& END 1600 


THE COMPILATION OF THE FOLLOWING STATEMENTS WOULD RESULT. 


DECLARE (A,B) FIXED; ~ 0300 
A@ xX CAT Y+Z; % WHOLE SOURCE IMAGE IS INCLUDED 0700 
B-t-A; | 0900 
BUMP B; 1300 


NOTE THAT EVERY "IF" MUST BE PAIRED WITH EITHER AN "ELSE" OR AN 
"END". EVERY "ELSE" MUST HAVE AN “END” ASSOCIATED WITH IT. 
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APPENDIX VII: SDL PROGRAMMING TECHNIQUES 
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THIS SECTION CONTAINS CODING SUGGESTIONS AND EXAMPLES WHICH 
RESULT IN DECREASED SOURCE CODE AND/OR OBJECT CODE. 


DECLARATIONS: 


Le eo Me eM ed 


i. AS MANY NON-STRUCTURED DECLARATIONS AS POSSIBLE (UP TO A 
MAXIMUM. OF 3c) SHOULD BE DECLARED IN ONE <DECLARE 
STATEMENT>. EXAMPLE: 


DECLARE A FIXED, (B.C) BIT(24); 
GENERATES MORE EFFICIENT CODE THAN: 


DECLARE A FIXED; 
DECLARE (B,C) BIT(e4) ; 


eC. A <DEFINE ACTUAL PARAMETER> (SEE "DEFINE INVOCATION") MAY 
BE A SERIES OF SDL STATEMENTS. FOR EXAMPLE: 


DEF INE COMPARE (TS,S) AS@ 
iF TOKEN.SYMBOL=TS 
THEN DO; 
34 
UNDO THIS.ONE: 
END@: 


MAY BE INVOKED AS: 


DO THIS.ONE FOREVER; 
COMPARE ("SINGLE", SINGLE.SPACE TRUE); 
COMPARE ("MERGE", IF LASTUSED # 0 
THEN UNDO THIS.ONE; 
LASTUSED+e; 
OPEN SOURCE INPUT; 
READ SOURCE (TAPEWORK)); 
COMPARE. €2-24é4 60) % 


END THIS.ONE ; 


PROCEDURES : 


ae ae ae ee ens Ce ee amED oe aD 


1. PROCEDURES FROM HIGHEST EFFICIENCY TO LOWEST ARE: 


PARAMETERS LOCAL DATA 
NO NO 
NO YES 
YES NO 
YES YES 


STATEMENTS: 


AOU SION Aten? athe Ame Ama CRM er CL qeoRO mpeN 


1. WHEN THE VALUE RETURNED BY A TYPED PROCEDURE IS. TO 
IGNORED: 


IF P(X-Y) THEN: 
IS MORE EFFICIENT THAN: 


TEMP <«-P(X-Y); 


2. THE FOLLOWING STATEMENTS: 


 <NULL STATEMENT > 
<RETURN STATEMENT > 
<GROUP TERMINATION STATEMENT>, AND 
PARAMETER~LESS PROCEDURE CALLS 
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BE 


SHOULD NEVER BE THE ONLY STATEMENT WITHIN A <DO GROUP> 
WHICH FOLLOWS A "THEN" OR "ELSE" OR WHICH IS AN ELEMENT OF 
A  <CASE STATEMENT> (OR ANY "SUBORDINATE  EXECUATBLE 


STATEMENT; SEE P. 4-2). EXAMPLE: 
IF A THEN RETURN: 

IS MORE EFFICIENT THAN: 
IF A THEN DO; 


RETURN; 
END; 


3. USE "%" AT THE BEGINNING OF A COMMENT RATHER THAN "/*,., 


ey” 


AS DELIMITERS. THE "X" STOPS THE SCANNING OF THAT RECORD. 


IF THE "/*...*/" FORM IS USED, SCANNING MUST CONTINUE 


TO 
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DETECT THE ENDING TERMINATOR. THUS COMPILE TIME IS 
INCREASED. 


THE EXPRESSION: 
SUBSTR(C"O123456789ABCDEF" ,N, 1) 
GENERATES MUCH LESS CODE THAN 


CASE Kj Or ("ff Bi NS aes eo eee 


THE STATEMENT : 

KX -t- AO : 
iS MORE EFFICIENT THAN 

X@--1F ASO THEN | ELSE OQ; 
THE RESULTS ARE THE SAME. 


BUMP A*B; STORES B INTO A AND BUMPS B. 
BUMP A:«B; STORES B INTO A AND BUMPS A. 


REVERSE .STORE CIF <CONDITION>D THEN A ELSE B, C); SELECTIVELY 
STORES C INTO A OR B. 


CONSIDES THE FOLLOWING: 


TN A COMPILER, FOR EXAMPLE, ASSUME THAT ALL CALLS ON THE 
ERROR ROUTINE FOLLOW A THEN/ELSE OR ARE IN A <CASE 
STATEMENT>. EXAMPLE : 


i. —F <CONDITION>S THEN ERROR( E005) ; 
ce. CASE N; 


a 
*. 9 


ERROR(E137); 
END CASE; 
IT IS SOMETIMES DESIRABLE TO PUT THESE CALLS INTO A 


SEPARATE SEGMENT, ESPECIALLY WHEN E005 AND £137 REPRESENT 
CHARACTER STRINGS (1.€., "IN-LINE" ERROR MESSAGES). FOR 


EXAMPLE : 


DEFINE ERROR(N) AS #SEGMENT (ERROR.CALLS) ; 


iO. 
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ERROR .ROUTINE (N) #; 


BECAUSE OF THE TEMPORARY NATURE OF SEGMENTING SUBORDINATE 
EXECUTABLE STATEMENTS, ONLY THE CALLS WILL BE IN SEPARATE 


SEGMENTS. 


WHEN TWO OR MORE ELEMENTS OF A <CASE STATEMENT> OR AN <IF 
STATEMENT> HAVE IDENTICAL CODE, MORE EFFICIENT CODE IS 
GENERATED IF THE CODE IS PUT INTO A SEPARATE PROCEDURE | 
(WITH NO PARAMETERS OR DATA). IN BOTH CASES, EXECUTION TIME 
WILL BE IDENTICAL, BUT OBJECT CODE SAVINGS COULD BE 
SUBSTANTIAL. | | ve | 


USE CONDITIONAL COMPILATION STATEMENTS TO REMOVE DEBUGGING 
CODE , RATHER THAN PHYSICALLY REMOVING THE CODE. SEE 
APPENDIX VI. ‘ | - a | 
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APPENDIX VIII: THE SDL RECOMPILATION FACILITY 


RECOMPILATION OF SDL PROGRAMS IS A TWO PART PROCESS: (A) 
COMPILATION OF THE FULL PROGRAM IN ORDER TO CREATE THE MASTER 
INFORMATION FILES, AND (B) RECOMPILATION OF PARTS OF THE 
PROGRAM USING THE MASTER INFORMATION FILES. THE "CREATE MASTER" 
OPERATION TAKES PLACE ONCE, AND IS THEN FOLLOWED BY SUCCESSIVE 
"RECOMPILE" OPERATIONS. NOTE THAT BOTH A "CREATE MASTER" AND A 
"RECOMPILE" MAY BE PERFORMED AT THE SAME TIME. IN ADDITION, IT 
IS POSSIBLE TO DO "REGULAR" COMPILATIONS WITHOUT INVOKING ANY 
OF THE RECOMPILATION FACILITY. 


A. THE CREATE MASTER OPERATION 


IN ORDER TO CREATE THE MASTER INFORMATION FILES, IT IS NECESSARY 
TO INCLUDE AS THE FIRST CARD IN THE COMPILATION DECK THE 
$-CARD: | 


$ CREATE .MASTER 


THIS CAUSES THE COMPILER TO: (A) DUMP INFORMATION TO THE MASTER 
INFORMATION FILES, (B) CREATE A NEW SOURCE FILE (ABOUT WHICH, 
INFORMATION IS SAVED), AND (C) USE THESE TO CREATE A NEW CODE 
FILE. 


THE INFORMATION THAT IS SAVED IS: THE INPUT SOURCE IMAGES, THE 
LEXIC LEVEL ONE PROCEDURE BOUNDARIES (BOTH SOURCE AND OBJECT), 
THE LEXIC LEVEL ZERO SYMBOL TABLES, A RECORD OF ALL CODE 
ADDRESSES THAT HAVE BEEN EMITTED, THE OBJECT CODE FROM WHICH 
CODE ADDRESSES HAVE BEEN EXCISED, AND THE FPB2S AND 
SCRATCHPADS. THIS IS SAVED IN THE FILES: 


NEWSOURCE , 

NEW. INFO.FILE, | 
NEW.BLOCK.ADDRESS.FILE, 
NEW.SECONDARY.FILE, AND 
NEW.FPB.FILE. 
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THERE ARE SEVERAL RESTRICTIONS THAT APPLY TO THE CREATE MASTER 
OPERATION: 


1. $$ CREATE.MASTER MUST BE THE FIRST CARD IN THE DECK. 
©. $ NEW NEED NOT BE USED WITH $ CREATE.MASTER. 


3. $ SEQ SHOULD BE USED IF THERE ARE INPUT SOURCE IMAGES WITH 
EMPTY SEQUENCE FIELDS. 


NOTE THAT (1) IMPLIES THAT THE &-CARDS AT THE FRONT OF THE DECK 
WILL BE INCLUDED ON THE NEW SOURCE FILE THAT IS CREATED. HENCE, 
THESE CARDS SHOULD BE SEQUENCED. 


B. THE RECOMPILE OPERATION 


RECOMPILATION IS DONE ON A LEXIC LEVEL ONE PROCEDURE BASIS: 
I.E., THE OUTERMOST PROCEDURE CONTAINING A PATCH IS THE 
PROCEDURE WHICH IS RECOMPILED. THE CODE PRODUCED BY THE 
RECOMPILE PROCESS WILL BE MERGED INTO (AND, IN FACT, REPLACE 
SOME OF) THE INFORMATION CREATED DURING THE CREATE MASTER 
PROCESS. 


RECOMPILATION IS INVOKED BY INCLUDING AS THE FIRST CARD OF THE 
PATCH DECK: | 


$ RECOMPILE 


THIS CAUSES THE COMPILER TO USE THE PATCHES AND THE MASTER 
INFORMATION FILES TO LOCATE THE LEXIC LEVEL ONE PROCEDURES AND 
TO GENERATE THE SAME INFORMATION FOR THESE AS WAS GENERATED FOR 
THE ENTIRE PROGRAM IN THE CREATE MASTER OPERATION. THIS 
INFORMATION IS THEN COMBINED, ON A PROCEDURE BY PROCEDURE 
BASIS, WITH THE MASTER INFORMATION FILES TO PRODUCE A FINAL 
FORM OF THE PROGRAM WHICH CAN BE TURNED INTO A CODE FILE. 


THE INFORMATION THAT IS ACCESSED IS CONTAINED IN THE FILES: 


SOURCE , 
MASTER. INFO.FILE, 


eS 


MASTER.BLOCK.ADDRESS.FILE, 
MASTER.SECONDARY.FILE, AND 
MASTER.FPB.FILE. 


THERE ARE SEVERAL RESTRICTIONS THAT APPLY TO THE RECOMPILE 
OPERATION: 


1. $ RECOMPILE MUST BE THE FIRST CARD IN THE DECK. 


e. THE PATCH DECK MAY CONTAIN $-CARDS, & SET CARDS, AND & 
RESET CARDS, FOLLOWED BY PATCH CARDS. 


3. NO LEXIC LEVEL ZERO CARDS MAY BE PATCHED: THIS’ INCLUDES 
GLOBAL DATA, LEXIC LEVEL ONE PROCEDURE HEADS, AND THE MAIN 
PROGRAM. 


4. NEITHER $ SEQ NOR $ MERGE MAY APPEAR WITH $ RECOMPILE. 


S. THE SOURCE FILE INPUT DURING RECOMPILATION MUST BE ON DISK 
(IN ORDER THAT IT MAY BE ACCESSED RANDOMLY). 


C. THE CREATE MASTER AND RECOMPILE OPERATIONS PERFORMED TOGETHER 


IT IS POSSIBLE TO CREATE NEW MASTER INFORMATION FILES WHILE 
RECOMPILING. IT IS NECESSARY ONLY TO ADHERE TO THE SET OF 
RESTRICTIONS LISTED IN BOTH A AND B, ABOVE. IN PARTICULAR, 


$ RECOMPILE CREATE .MASTER 


MUST BE THE THE FIRST CARD IN THE DECK. IT SHOULD BE NOTED, 
HOWEVER, THAT PERFORMING THESE OPERATIONS TOGETHER UPDATES SOME 
OF THE INFORMATION IN THE FILE MASTER. INFO.FILE. HENCE, IT WILL 
NOT BE POSSIBLE TO PERFORM ANOTHER RECOMPILE USING THIS 
MASTER. INFO.FILE UNLESS THE FILE HAS BEEN COPIED. IN THIS CASE, 
THE COPIED VERSION IS THE ONE WHICH MUST BE USED FOR SUBSEQUENT 
RECOMPILATIONS. 


D. NOTES 


1. DURING RECOMPILATION, THE ONLY INFORMATION WHICH MAY BE 
LISTED IS THAT WHICH IS ACTUALLY BEING RECOMPILED. 


cn 


aa 
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THE ORIGINAL SOURCE FILE USED WITH $ CREATE.MASTER MAY BE 
ON MAG TAPE. THE NEW SOURCE FILE CREATED BY $ CREATE.MASTER 
MAY BE ON MAG TAPE. HOWEVER, THIS NEW SOURCE FILE MUST THEN 
BE COPIED TO DISK BEFORE PERFORMING THE RECOMP ILE 
OPERATION. 


USE OF THE RECOMPILATION FACILITY REQUIRES A FAIR AMOUNT OF 
DISK SPACE, PARTICULARLY WHEN BOTH RECOMPILATION AND CREATE 
MASTER OPERATIONS ARE PERFORMED AT THE SAME TIME. IT IS 
ADVANTAGEOUS TO KEEP SOURCE FILES ON MAG TAPE AS MUCH AS 
POSSIBLE, COPY THEM TO DISK WHEN THEY ARE NEEDED, AND 
REMOVE THEM AS SOON AS THEY ARE RELEASED. 


THE MARK IITI.1 MCP REQUIRES THAT ALL INTERNAL FILE NAMES BE 
LIMITED TO TEN CHARACTERS; THE MARK III.e RESTRICTION IS 63 
CHARACTERS, OF WHICH ONLY THE FIRST TEN ARE SIGNIFICANT. 


THE SOURCE IMAGE FILE CREATED BY THE CREATE MASTER PROCESS 
CONTAINS NO INFORMATION OTHER THAN SOURCE IMAGES. IT MAY 
THEREFORE BE USED IN A REGULAR COMPILATION. 


SAMPLE COMPILE DECKS 


COMPILE, CREATE.MASTER: 


COMPILE SA SDL LIBRARY 

FILE SOURCE NAME SA0206/SOURCE TAPE; 

FILE NEWSOURCE NAME SA0410/SOURCE TAPE; 

FILE NEW. INFO.FILE NAME SA0410/ INFO; 

FILE NEW.BLOCK.ADDRESS.FILE NAME SA0410/BLOCK.ADDRESS ; 
FILE NEW.SECONDARY.FILE NAME SA0410/SECONDARY ; 
FILE NEW.FPB.FILE NAME SAO410/FPB; 

DATA CARDS 

CREATE .MASTER 

MERGE LIST SINGLE SIZE SEQ 

[PATCH CARDS ] | 

(99999999 CARD) 

? END 


RECOMPILE (IT IS ASSUMED THAT THE TAPE LABELLED 
SA0410/SOURCE HAS BEEN COPIED TO A DISK FILE OF THE SAME 
NAME): 


COMPILE SA SDL LIBRARY 

FILE SOURCE NAME SA0410/SOURCE ; 

FILE MASTER. INFO.FILE NAME SAO410/INFO; 
FILE MASTER.BLOCK.ADDRESS.FILE NAME SAO410/BLOCK. ADDRESS ; 
FILE MASTER.SECONDARY.FILE NAME SA0D410/SECONDARY ; 


VNNNON 
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? FILE MASTER.FPB.FILE NAME SAO410/FPB; 
? DATA CARDS 

$ RECOMPILE 

$ LIST SINGLE SIZE 

$ VSSIZE 10000 NSSIZE 100 

[PATCH CARDS] 

(99999999 CARD] 


? 


END 


3. RECOMPILE, CREATE.MASTER: 


AAA NNNNNN NNN NINN 


COMPILE SA SDL LIBRARY 


FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
PILE 
FILE 
DATA 


SOURCE NAME SA0410/SOURCE ; 

MASTER. INFO.FILE NAME SAO410/ INFO; 
MASTER.BLOCK.ADDRESS.FILE NAME SA0410/BLOCK.ADDRESS; 
MASTER.SECONDARY.FILE NAME SA0410/SECONDARY ; 
MASTER.FPB.FILE NAME SAO4%10/FPB; 

NEWSOURCE NAME SAO0411/SOURCE TAPE; 

NEW. INFO.F ILE NAME SA04%11/ INFO; 
NEW.BLOCK.ADDRESS.FILE NAME SA0411/BLOCK.ADDRESS; 
NEW.SECONDARY.FILE NAME SA0411/SECONDARY ; 
NEW.FPB.FILE NAME SAO411/FPB; 

CARDS 


RECOMPILE CREATE.MASTER 
VSSIZE 10000 NSSIZE 100 


LIST 


SINGLE SIZE 


[PATCH CARDS] 
? END 


cont 


APPENDIX IX: SDL MONITORING FACILITY 


THE SDL MONITORING FACILITY PROVIDES A MEANS OF MONITORING 
PROCEDURE INVOCATIONS AND EXITS. THE MONITOR OUTPUT INCLUDES 
POINTS OF INVOCATION, PROCEDURE NAMES, PARAMETER VALUES, 
RETURNED VALUES, ETC. 


SDL PROGRAM SYNTAX AND SEMANTIC CHANGES 


A. "MONITOR. INPUT.FILE" AND "MONITOR.OUTPUT.FILE" ARE ADDED AS 
<FILE ATTRIBUTE> S TO THE <FILE DECLARATION STATEMENT>. 
THEY HAVE THE FOLLOWING SEMANTICS: 


1. BOTH CANNOT BE ATTRIBUTES OF THE SAME FILE. 
eg EACH MAY APPEAR ONLY ONCE IN A COMPILATION. 
Si "MONITOR.OUTPUT.FILE" MAY APPEAR ALONE. 


B. "NO MONITOR" AND "MONITOR" ARE ADDED AS <CONTROL OPTIOND>S 
TO SDL. THEY HAVE THE FOLLOWING SEMANTICS: 


beg THE "MONITOR" <CONTROL OPTION> IS INITIALLY 


OFF. 
roa RECOGNIZING THE ("MONI TOR"/ "NO MONITOR") 


<CONTROL OPTION> TURNS THAT OPTION (ON/OFF). 


GENERAL DISCUSSION 


THE MONITORING SYSTEM WILL MONITOR PROCEDURE INVOCATIONS AND 
EXITS ON THE FILE WITH <FILE ATTRIBUTE> "MONITOR.OUTPUT.FILE”. 
PROCEDURES WHICH ARE CANDIDATES TO BE MONITORED ARE THOSE WHOSE 
— <FORWARD DECLARATIOND>S OR <PROCE DURE STATEMENT >S WERE 
RECOGNIZED WHILE THE "MONITOR" <CONTROL OPTION> WAS "ON". 


THE SET OF PROCEDURES TO BE MONITORED FOR A GIVEN RUN IS 


ae ad 


SELECTED VIA <RUN-TIME MONITOR STATEMENT>S WHICH ARE INPUT AT 
THE BEGINNING OF THE PROGRAM VIA_ THE FILE WITH THE 
"MONITOR. INPUT.FILE" ATTRIBUTE. IF NO FILE WITH THIS ATTRIBUTE 
IS DECLARED THE SPO IS USED BY DEFAULT. 


A. FILE HANDLING 


THE FILE WITH <FILE ATTRIBUTE> "MONITOR. INPUT.FILE" WILL BE 
OPENED, ACCESSED, AND CLOSED BEFORE THE USER CODE RECEIVES 
CONTROL. | i ; 


THE FILE WITH <FILE ATTRIBUTE> "MONITOR.OUTPUT.FILE" WILL BE 
WRITTEN TO ONLY; NO EXPLICIT OPEN OR CLOSE WILL BE PERFORMED. 
THIS MEANS THAT (A) ONCE MONITOR OUTPUT IS STARTED THE USER 
SHOULD NOT PERFORM AN EXPLICIT OPEN ON THE FILE AND (B) IF MORE 
MONITOR OUTPUT IS EXPECTED THE USER SHOULD NOT PERFORM AN 
EXPLICIT CLOSE ON THE FILE. 


RUN-TIME MONITOR STATEMENT 


THE SYNTAX OF THE RUN-TIME MONITOR STATEMENT IS DESCRIBED BELOW. 


<RUN-T IME 
MONITOR STATEMENT): := SALL i 
| : | / $NONE : 2 
/ <EXPRESSION> 3 
<EXPRESSION> ::= | <TERM> | mr 
/ <EXPRESSION> <OR> <TERM> 5 
<TERM> ::= <FACTOR> 6 
- y. / <TERM> <AND> <FACTORD 7 
<FACTOR> ::= <PRIME> 8 
/ <NOT> <PRIMED 9 
<PRIME> ::= <RANGE > 10 
/ <LIST> 1 
7 (<EXPRESSIOND) 12. 
<OR> ::2 OR, | | 13 
/ + | 3 14 
<AND> ::2 AND 15 
/ + 16 
<NOT> i: NOT 17 
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<RANGE> ::= <8 DIGIT SEQUENCE NUMBER> - 19 
<8 DIGIT SEQUENCE NUMBER> 20 

<LIST> ::= <IDENTIF IERD el 
/ <LIST> <IDENTIFIERD ee 

/ <LIST>, <IDENTIFIERD 23 


THE SEMANTICS OF A <RUN-TIME MONITOR STATEMENT> ARE DESCRIBED AS 
FOLLOWS. IF A PROCEDURE "P" SATISFIES THE CONDITIONS OF THE 
MONITOR STATEMENT THEN IT SHOULD BE MONITORED. NOTE THAT ALL 
PROCEDURES SATISFY (1) AND NO PROCEDURES SATISFY (2). A 
PROCEDURE SATISFIES AN <EXPRESSION> IF IT SATIFIES ANY <TERM> 
OF THAT <EXPRESSION>. A PROCEDURE SATISFIES A <TERM> IF IT 
SATISFIES ALL <FACTOR>S OF THAT <TERM>. A PROCEDURE SATISFIES 
A <FACTOR> IF IT SATISFIES THE <PRIME> COMPOSING IT (8) OR IT 
DOES NOT SATISFY THAT PRIME (9). A PROCEDURE SATISFIES A 
<PRIME> IF IT SATISFIES A RANGE CONDITION (10), A_ LIST 
CONDITION (11), OR A SUB-EXPRESSION (12). A RANGE CONDITION IS 
TWO 8 DIGIT SEQUENCE NUMBERS, THE FIRST STRICTLY LESS THAN THE 
SECOND. A PROCEDURE SATISFIES A RANGE CONDITION IF ITS 
PROCEDURE STATEMENT IS CONTAINED IN THAT RANGE. A PROCEDURE 
STATEMENT SATISFIES A LIST CONDITION IF ITS NAME IS CONTAINED 
IN THE LIST. 


THE MONITOR FILE 


WHEN MONITORING A PROGRAM, THE MONITORING INTRINSICS REFERENCE 
A RANDOM ACCESS FILE ASSOCIATED WITH THE COMPILATION OF THE 
PROGRAM. THE NAME OF THE CODE FILE AND THE NAME OF ITS MONITOR 
FILE ARE GIVEN BELOW: 


CODE FILE MONITOR FILE 
A SSA 
A/B A/$$B 


A/B/C A/B/S$$C 
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APPENDIX X: BURROUGHS B1700 DATA COMMUNICATIONS SDL (DCSDL) 


B 1700 DATA COMMUNICATIONS SDL (DCSDL) IS AN EXTENSION OF B 1700 
SDL, AND ANY CONSTRUCT USABLE IN B 1700 SDL IS PERMITED IN 
DCSDL . 7 


DCSDL HAS BEEN PROVIDED SPECIFICALLY FOR THE IMPLEMENTATION OF 
THE NETWORK CONTROLLER FOR DATA COMMUNICATIONS NETWORK. IT 
SHOULD NOT BE USED FOR ANY OTHER PURPOSE. NOTE THAT THERE ARE 
SOME FEATURES OF DCSDL WHICH EITHER HAVE NOT BEEN FULLY 
IMPLEMENTED OR HAVE NOT BEEN IMPLEMENTED AT ALL. THESE FEATURES 
WILL BE MARKED AS SUCH. | 


FOR SIMPLICITY, ONLY THOSE CONSTRUCTS OF DCSDL THAT ARE NEW AND 
THAT HAVE NOT BEEN PREVIOUSLY DEFINED IN B1700 SDL WILL BE 
DESCRIBED IN THIS APPENDIX. THE SYNTACTIC DESCRIPTIONS WILL BE 
CONSISTENT WITH THOSE OF B1700 SDL, AND ANY METALINGUISTIC 
VARIABLE NOT DEFINED IN THIS MANUAL HAS THE SAME DEFINITION AS 
IN THE B1700 SDL INFORMATION MANUAL. 


DCSDL EXTENSIONS 


SYNTAX: 


<DCSDL EXTENSION>D ::= <DCSDL DECLARATION> / ' <DCSDL FUNCTION>/ 
<DCSDL STATEMENT > 


SEMANTICS: 


THE EXTENSIONS TO B1700 CONSIST OF TWO NEW DECLARATIONS, A 
NUMBER OF STATEMENTS, AND SOME SPECIALIZED FUNCTIONS THAT DEAL » 
WITH THE NEW DECLARATIONS. 


NOTE: THE WORDS "TRUE" AND "FALSE" IN’ THIS APPENDIX | 


SYNONOMOUS WITH @(1)1@ AND @(1)0@, RESPECTIVELY. 


DCSDL DECLARATIONS 


SYNTAX: | 


\ 


<DCSDL DECLARATION> ::= <B1700 SDL DECLARATIONS> / 
<QUEUE DECLARATION> / <MESSAGE DECLARATION> 


SEMANTICS: 


DCSDL DECLARATIONS MAY BE THE <B1700 SDL DECLARATIONS>, OR 
THE <QUEVE DECLARATION>, OR THE <MESSAGE DECLARATION>. 


SYNTAX: 
<QUEUE DECLARATION> ::= QUEUE <QUEUE LIST> 
<QUEUE LIST> ::= <COMPLEX QUEUE IDENTIFIER> / <QUEUE LIST>, 


<COMPLEX QUEVE IDENTIFIERD>D 


<COMPLEX QUEUE IDENTIFIER> ::= <QUEVE IDENTIFIERD / 
<QUEUE ARRAY IDENTIFIER> (<ARRAY BOUND>) 


<QUEVE IDENTIFIER> ::= <IDENTIFIERD> 


<QUEUE ARRAY IDENTIFIER> ::= <IDENTIFIERD 
<ARRAY BOUND> ::= <INTEGER> 


EXAMPLES: 
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QUEUE A, B, C (10); 


QUEUE QUEUE.ARRAY (15), PRIMARY (7); 


SEMANTICS: 


1. A <QUEUVE DECLARATION> DEFINES ONE OR MORE IDENTIFIERS AS 
QUEUES OR QUEVE ARRAYS AND DEFINES THEIR BOUNDS ' OF 
SUBSCRIPT. QUEUE ARRAYS MUST BE ONE DIMENSIONAL. 


e. THE SUBSCRIPT BOUND FOR EACH QUEUE ARRAY IS GIVEN IN’ THE 
<ARRAY BOUND> FOLLOWING THE QUEUE ARRAY IDENTIFIER(S) IN 
THE <QUEUVE ARRAY LIST>. 


3. EXPRESSIONS MAY BE USED AS QUEUE ARRAY SUBSCRIPTS. 
4. QUEUE ARRAYS MUST BE DECLARED IN THE OUTERMOST BLOCK. 
3. A DCSDL QUEVE IS A LINKED LIST OF MESSAGES. 


6. A QUEUE ARRAY IS AN INDEXABLE ARRAY WHOSE ELEMENTS ARE 
QUEUES, NOT VALUES. 


7. QUEUES AND QUEUE ARRAYS MAY NOT BE PASSED AS PARAMETERS TO 
PROCEDURES. 


PRAGMATICS: 


A DATA DICTIONARY ENTRY IS RESERVED FOR EACH QUEVE OR QUEUE 
ARRAY. IF THE QUEUE IS INACTIVE (A NULL QUEVE) THE ENTRY WILL 
BE ZERO. IF THE QUEUE IS ACTIVE, THE ENTRY WILL BE A DICTIONARY 
ENTRY WHICH POINTS TO A LOCATION IN THE DATACOM QUEUE STACK. 
WHEN A QUEUE IS ACTIVE, ITS ENTRY IN THE QUEVE STACK CONTAINS 
THE HEAD AND TAIL LINKS TO A LINKED LIST OF MESSAGES. WHEN THE 
QUEVE IS EMPTY, THE TAIL LINK POINTS TO THE HEAD LINK; HOWEVER, 
THE QUEVE IS STILL CONSIDERED ACTIVE. 


QUEUES MAY BE REFERENCED BY THE USE OF THE NEW STATEMENTS AND 
FUNCTIONS DESCRIBED IN THIS DOCUMENT. A QUEUE MAY NOT BE 
ASSIGNED A VALUE OR USED AS AN INDEX. 


A QUEUE MAY BE ACTIVATED WITH AN ENABLE STATEMENT AND 
DE-ACTIVATED WITH THE DISABLE STATEMENT. 
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A QUEUE BECOMES NULL (AND ITS MESSAGES, IF ANY, RE 
= Re , REMOVED) ONLY 
WHEN THERE ARE NO PROCESSES REFERRING TO IT. 
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MESSAGE DECLARATION 


SYNTAX: 
<MESSAGE DECLARATION> ::= MESSAGE <MESSAGE LIST> 
MESSAGE LIST> ::= <COMPLEX MESSAGE IDENTIFIER> / <MESSAGE 


LIST>, <COMPLEX MESSAGE IDENTIFIER> 


<COMPLEX MESSAGE IDENTIFIER> ::= <MESSAGE IDENTIFIER> 
/ <MESSAGE ARRAY IDENTIFIER> (<ARRAY BOUND) ) 


MESSAGE IDENTIFIER> ::= <IDENTIFIERD 


<MESSAGE ARRAY IDENTIFIER> ::= <IDENTIFIER> 
<ARRAY BOUND> ::= <INTEGERD 
EXAMPLES: 


MESSAGE A, B, C ; 


MESSAGE FROM.A (10), X, 4, ALPHA.1 (5); 


SEMANTICS: 


1. A <MESSAGE DECLARATION> DEFINES ONE OR MORE IDENTIFIERS AS 
MESSAGES OR MESSAGE ARRAYS AND DEFINES THEIR BOUNDS. 


ec. THE SUBSCRIPT BOUND FOR EACH MESSAGE ARRAY [S GIVEN IN THE 
<ARRAY BOUND> FOLLOWING THE MESSAGE ARRAY IDENTIFIER IN THE 
<MESSAGE ARRAY LIST>. 

3. THE <ARRAY BOUND> GIVES UPPER BOUNDS OF ALL SUBSCRIPTS. 


4, ESSENTIALLY, MESSAGES ARE SPECIAL WORK AREAS OUTSIDE THE 
BASE LIMIT OF INDIVIDUAL PROCESSES. | 
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5. MESSAGE ARRAYS MUST BE ONE DIMENSIONAL. THE NUMBER OF BYTES 
IN THE MESSAGE IS SET BY THE ALLOCATE STATEMENT AND CAN BE 
DETERMINED BY THE SIZE OPTION IN THE QUEVE.INFO FUNCTION. 


6. MESSAGE ARRAYS MUST BE DECLARED IN THE OUTERMOST BLOCK. 


7. MESSAGES CANNOT BE PASSED AS PARAMETERS TO PROCEDURES. 


MESSAGES ARE ORGANIZED AND MAINTAINED BY A. SET OF PROCEDURES 
WITHIN THE MCP. THESE PROCEDURES MAINTAIN A LIST OF FREE SPACE 
WITHIN THE SAVE-MEMORY POOL AND ALLOCATE THIS SPACE TO 
PROCESSES THAT REQUEST IT, BY MAKING A DESCRIPTOR FOR AN AREA 
AND PASSING THAT. THE INTRINSICS ALSO ACCEPT SPACE FROM 
PROCESSES FINISHED WITH AN AREA AND ADD IT TO THE AVAILABLE | 
LIST. IF AT ANY TIME THE INTRINSICS SEEM TO BE RUNNING OUT OF 
SPACE THEY GET A NEW SUBPOOL AND APPROPRIATELY SUBDIVIDE IT. 
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MESSAGE LINKAGE MECHANISM 


DATA IN MESSAGES WILL BE ACCESSED ONLY THROUGH THE DATA 
DICTIONARY. A NEW SDL S-OPERATOR (TRANSFER.MESSAGE) IS DEFINED TO 
PERMIT THIS ACCESS TECHNIQUE. THESE OPERATORS WILL PERFORM THE 
FOLLOWING FUNCTIONS. 


1. COMPUTE THE DATA DICTIONARY ENTRY NUMBER (I.E. 
INDEX) 
ex FIND OUT THE LOCATION OF THE DATA DICTIONARY 


THROUGH THE FIELD RS.DATA.DIC IN THE RUN 
STRUCTURE NUCLEUS 


3: COMPUTE THE ABSOLUTE ADDRESS OF THE DATA 
DICTIONARY ENTRY 


ae DETERMINE THE ABSOLUTE LOCATION OF A MESSAGE 
AND ITS LENGTH 


oF SET THE BASE-LIMIT OVER-RIDE FLIP FLOP CD(e) 
IF WRITE OPERATION ELSE CD(1) 


6. TRANSFER INFORMATION FROM THE MESSAGE TO A 
LOCAL DATA AREA OR VICE VERSA. DESCRIPTORS ON 
THE EVALUATION STACK WILL DESCRIBE THE DATA TO 
BE TRANSFERRED. THE INTERPRETER WILL CHECK THE 
VALIDITY OF ANY ADDRESSES OUTSIDE BASE-LIMIT. 


THE INTERPRETER WILL NOT CHANGE MESSAGE DESCRIPTORS IN THE DATA 
DICTIONARY. ONLY THE MCP WILL HAVE THIS PRIVILEGE. IF A MESSAGE 
IS NOT ASSIGNED TO A DATA DICTIONARY ENTRY AND IF THE PROGRAM 
TRIES TO READ OR WRITE TO IT AN INTERRUPT WILL BE CAUSED. 


THIS MECHANISM IS SAFE. A USER PROGRAM (SDL) WILL NOT HAVE THE 
ABILITY TO WRITE INTO A MEMORY SPACE THAT HAS NOT BEEN 
ALLOCATED TO IT BECAUSE ALL ADDRESSING IS INDIRECT THROUGH THE 
DATA DICTIONARY. 
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DCSDL FUNCTIONS 


SYNTAX: 


<DCSDL FUNCT IOND> <B1700 SDL FUNCTION> / < QUEUE FUNCT ION> 


<QUEVE FUNCT ION> <ALLOCATE FUNCT ION> 


SEMANTICS: 


DCSDL FUNCTIONS MAY BE THE <B1700 SDL FUNCTION>, OR THE <QUEUE 
FUNCTION>. 


ALLOCATE FUNCTION 


SYNTAX: 

<ALLOCATE FUNCTION> ::= ALLOCATE (<COMPLEX MESSAGE IDENTIFIER>, 
. <SIZE>D) 

<SIZE> ::= <ARITHMETIC EXPRESSION> 

EXAMPLES: 


RESULT ALLOCATE (MESSAGEID, SIZEINBITS) ; 


RESULT 


ALLOCATE (MESSAGEARRAYIOD(3), SIZEINBITS) ; 
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SEMANTICS: 


THE <ALLOCATE FUNCTION> CAUSES AN AREA OF SAVE MEMORY, 
<SIZE> BITS IN LENGTH, TO BE RESERVED FOR A MESSAGE. 


WHEN THE <SUB MESSAGE ARRAY > (OR <MESSAGE ARRAY 
IDENTIFIER>) FORM IS USED, REPEATED ALLOCATES ARE NEEDED 
FOR EACH ELEMENT OF THE SUB MESSAGE ARRAY (OR MESSAGE 
ARRAY), RESERVING <SIZE> BITS FOR EACH ELEMENT. 


IF A MESSAGE AREA REFERENCED BY <COMPLEX MESSAGE 
IDENTIFIER> HAS ALREADY BEEN ALLOCATED, THE OLD MESSAGE 
AREA IS RETURNED TO THE SYSTEM BEFORE A NEW AREA IS 
ALLOCATED. THIS FEATURE HAS NOT BEEN IMPLEMENTED. 


IF <SIZE> IS EQUAL TO ZERO, THE MESSAGE AREA, IF ANY, IS 
RETURNED TO THE SYSTEM, MAKING THE MESSAGE NULL. THIS 
FEATURE HAS NOT BEEN FULLY IMPLEMENTED. 


THE VALUE RETURNED IS THE 24 BIT ADDRESS OF THE MESSAGE. 
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DCSDL STATEMENTS 


SYNTAX: 
<DCSDL STATEMENT> ::= <B1700 SDL STATEMENT> / <QUEUE STATEMENT? 
<QUEUE STATEMENT> ::= <DC.WRITE STATEMENT> / <REMOVE STATEMENT>/ 


QUEUE. INFO STATEMENT> / <MESSAGE.INFO STATEMENT> / 
<DE.ALLOCATE STATEMENT> / <INSERT STATEMENT> / 

<FLUSH STATEMENT> / <ENABLE.QUEUE STATEMENT> / | 
<DISABLE.QUEUE STATEMENT> / Shenae: MESSAGE STATEMENT> / 
<MCS.COMMUNICATE STATEMENT) / 


SEMANTICS: 


THE <DCSDL STATEMENT> MAY BE A <BI1700 SDL STATEMENT>, OR AN 
<ALLOCATE STATEMENT>, OR A <QUEUE STATEMENT>. 


DC .WRITE STATEMENT 


SYNTAX 

<DC.WRITE STATEMENT> ::= DC.WRITE (<RESULT PART>, <MESSAGE 
PART> <QUEUE PART PARAMETER>) 

<RESULT PART> ::= <ADDRESS GENERATOR> 

<MESSAGE PART> ::= “MESSAGE IDENTIFIER> / <MESSAGE ARRAY> 
IDENTIFIER> (<SUBSCRIPT>) 

<QUEVUE PART PARAMETER> ::= , <QUEUE PART> / <EMPTY> 


N 


<QUEUE PART> ::= <QUEUE IDENTIFIER> / <QUEUE ARRAY IDENTIFIER>D 
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(<SUBSCRIPT>) 
<SUBSCRIPT> ::= <EXPRESSION> 


EXAMPLES: 


DC.WRITE (ERRORNO, MESSAGEID) ; | 
DC.WRITE (ERRORNO, MESSAGE.ARRAY.ID (3), QUEUVEID) ; 


SEMANTICS: 


1. THE <DC.WRITE STATEMENT> CAUSES THE <MESSAGE PART> TO BE 
PASSED TO THE NETWORK CONTROLLER (NC). 


ec. THE ACTION TAKEN BY THE NC DEPENDS ON THE TYPE AND VARIANT 
FIELDS OF THE MESSAGE (AS SPECIFIED IN THE B1700 MCS 
MANUAL ) . 


3. THE <QUEUVE PART PARAMETER> IS REQUIRED FOR CERTAIN NC 
ACTIONS. (SEE THE B1700 MCS MANUAL). 


4. THE VALUE RETURNED IS AN ERROR IDENTIFICATION NUMBER. A 
ZERO INDICATES NO ERROR; OTHER ERROR VALUES ARE GIVEN IN 
THE B1700 MCS MANUAL. 


REMOVE STATEMENT 


<REMOVE STATEMENT> ::= REMOVE (<ADDRESS GENERATOR>, <COMPLEX 
MESSAGE IDENTIFIER>, <QUEUE DESIGNATOR> <WAIT PART>) 


<WAIT PART> ::= ,WAIT / <EMPTY> 
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EXAMPLES: 


DECLARE 
01 RESULT 
,02 MESSAGE .LENGTH BIT(16) 
,0e QUEVE.SUBSCRIPT BIT(le) 
,0e MESSAGE.ADDRESS BIT(e4) 


MESSAGE M(3), MESG.X ; 
QUEUE Q(10), A, B ; 
REMOVE (RESULT, M(2), A, WAIT); 
REMOVE (RESULT, MESG.X, Q(3) ); 


REMOVE (RESULT, MSG.X, Q, WAIT); 


THE LAST STATEMENT WILL SUSPEND THE PROCESS UNTIL A MESSAGE IS 
INSERTED IN ANY ELEMENT OF "Q". IF ANOTHER PROCESS INSERTS A 
MESSAGE OF 1000 BYTES IN Q(7) THEN THE FIRST PROCESS WILL BE 
RESUMED AND MESSAGE.LENGTH WILL CONTAIN 1000 AND QUEUE 
SUBSCRIPT WILL CONTAIN 7. MESSAGE.ADDRESS CONTAINS THE ABSOLUTE 
ADDRESS OF THE MESSAGE. A MESSAGE THAT BELONGS TO A _ PROGRAM 
WILL NOT BE OVERLAYED BY THE MCP. 


SEMANTICS: 


1. THE <REMOVE STATEMENT> DELINKS A MESSAGE FROM THE QUEUE 
SPECIFIED AND CAUSES IT TO BE REFERENCED BY THE <MESSAGE 
PART>. 


©. IF THE <WAIT PART> IS NOT EMPTY THEN THE PROGRAM IS 
SUSPENDED UNTIL A MESSAGE IS INSERTED IN THE QUEUE OR QUEUE 
ARRAY. THE FIRST 16 BITS OF THE RETURNED VALUE CONTAIN THE 
SIZE OF THE MESSAGE AND THE NEXT Je BITS CONTAIN A 
SUBSCRIPT INTO THE QUEVE ARRAY (WHERE APPLICABLE). 


3. IF THE <WAIT PART> IS EMPTY THE <REMOVE STATEMENT> RETURNS 
A VALUE OF ZERO IF THERE ARE NO MESSAGE IN THE QUEUE. 
OTHERWISE, IT RETURNS, IN THE FIRST 16 BITS OF THE 
RECEIVING FIELD, THE LENGTH IN BITS OF THE MESSAGE REMOVED. 


26-13 


4. IF <MESSAGE PART> ALREADY REFERENCES A MESSAGE, THEN’ THAT 
MESSAGE AREA IS RETURNED TO THE SYSTEM BEFORE THE REMOVE. 
THIS FEATURE IS CURRENTLY NOT IMPLEMENTED. 


o« IF THE <QUEUE PART> IS NOT ACTIVE, THE PROGRAM IS 
TERMINATED. 


PRAGMATICS: 


THE <REMOVE STATEMENT> TAKES THE MESSAGE THAT IS AT THE HEAD OF 
THE QUEUE, DELINKS IT FROM THAT QUEUE AND INSERTS A DESCRIPTOR 
POINTING TO THAT MESSAGE IN THE DATA’ DICTIONARY ENTRY 
REFERENCED BY THE <MESSAGE PART>. 


CARE MUST BE TAKEN, WHEN REMOVING A MESSAGE FROM A QUEUE, THAT 
THE QUEVE IS ACTIVE. WHEN IN DOUBT, TEST USING QUEUE.INFO. 
(REMOVING A MESSAGE FROM AN INACTIVE QUEUE PRODUCES A RUN TIME 
ERROR AND. TERMINATION BY "INACTIVEQUEUE"). 


QUEUE.INFO STATEMENT 


<QUEUE.INFO STATEMENT> ::= QUEUE.INFO (<QUEUE.INFO RESULT>, 
<QUEVE PART> <INFO REQUEST >) 


<QUEVUE.INFO RESULT> ::= <ADDRESS GENERATOR> 
<INFO REQUEST> ::= EMPTY /, NULL /, SIZE /, PROCESSES 
<QUEVE PART> ::= <COMPLEX QUEVE IDENTIFIER> / <QUEUVE ARRAY 


IDENTIF ITER> 
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EXAMPLES: 


QUEUE.INFO (ANSWER, QUEVEID, $1ZE). 


QUEVE.INFO (ANSWER, QUEUEARRAY (13), NULL); 


SEMANTICS: 


IF A <QUEVE ARRAY IDENTIFIER> IS USED (WITHOUT A SUBSCRIPT) THEN 
INFORMATION ABOUT ALL ELEMENTS OF THE QUEUE ARRAY IS RETURNED 
LEF T-JUSTIF IED IN <QUEUE.INFO RESULT>. OTHERWISE INFORMATION 
ABOUT THE SPECIFIED QUEVE IS RETURNED LEFT-JUSTIFIED IN 
<QUEVE. INFO RESULT>. | 


1. IF <INFO REQUEST> EQUALS "SIZE", THE NUMBER OF MESSAGES IN 
THE QUEUE IS RETURNED AS BIT(12). 28 | 


2. IF  <INFO REQUEST> EQUALS "PROCESSES", THE NUMBER OF 
PROCESSES ATTACHED TO THE QUEUE IS RETURNED AS BIT(12). 


3. IF <INFO REQUEST> EQUALS "NULL", A BOOLEAN VALUE IS 
RETURNED AS BIT (1). "TRUE" IS RETURNED IF THE QUEUE IS 
ACTIVATED. | 


4. IF <INFO REQUEST> IS EQUAL TO "EMPTY" THEN "TRUE" IS 
RETURNED IF THE QUEVE ELEMENT HAS NO MESSAGES. 


PRAGMATICS: 
E.G. 
DECLARE 
A(20) — BITC12), 


B REMAPS A BIT(e40); 
QUEUE Q.1(20); 
QUEUE. INFO (B,Q.1, SIZE); 
PERFORMS THE SAME FUNCTION AS 
10; 


DO FOREVER ; 
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QUEVE.INFO (A (1), Q.1 (1), SIZE). 
IF (BUMP I) = 20 THEN UNDO; 


END; 
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MESSAGE .INFO STATEMENT 


<MESSAGE. INFO FUNCTION: : 
<MESSAGE PART>) 


MESSAGE. INFO (<MESSAGE.INFO RESULT>, 


<MESSAGE.INFO RESULT> ::= <ADDRESS GENERATOR> 


<MESSAGE PART> ::= <COMPLEX MESSAGE IDENTIFIER> / 
<MESSAGE ARRAY IDENTIFIER> 


EXAMPLES: 
DECLARE | 
01 MESSAGE .FIELD(5) BIT (41) 
»,02 NULL.FIELD BIT (1) 
,02 SIZE.FIELD BIT(16) 
,02 ADDRESS.FIELD BIT(e4) 


,B REMAPS MESSAGE.FIELD BIT(205) 


MESSAGE MSG (10) ; 
MESSAGE.INFO (MESSAGE.FIELD (1), MSG (5) ); 


MESSAGE.INFO (B, MSG); 


SEMANTICS: 


THE <MESSAGE. INFO FUNCTION> RETURNS $3 VALUES. NULL.FIELD 0 
IMPLIES THAT THE MESSAGE IS NOT ALLOCATED. IF NULL.FIELD l 
THEN THE SIZE (IN BITS) OF THE MESSAGE AND THE ABSOLUTE ADDRESS 
OF THE MESSAGE ARE RETURNED IN SIZE.FIELD AND ADDRESS.FIELD 
RESPECTIVELY. THE NAMES OF THE FIELDS USED ABOVE ARE ARBITRARY. 
THE FORMAT OF THE FIELDS MUST BE THE SAME AS INDICATED ABOVE. 


IF <MESSAGE ARRAY IDENTIFIER> IS USED WITHOUT A SUBSCRIPT THEN 
THE RULES DEFINED FOR QUEUE.INFO WILL BE FOLLOWED; I1.E., AN 
ARRAY OF RESULTS WILL BE RETURNED. THIS HAS NOT BEEN FULLY 


IMPLEMENTED. 


DE.ALLOCATE STATEMENT © 


SYNTAX: 
<DE.ALLOCATE STATEMENT> ::= DE.ALLOCATE (<COMPLEX MESSAGE 
IDENTIFIERD) 
EXAMPLES: 
DE.ALLOCATE (MSG (5) ); 
DE.ALLOCATE (MESSAGE.ID); 
SEMANTICS: 


THE BUFFER ASSOCIATED WITH THE <COMPLEX MESSAGE IDENTIFIER> 
DE-ALLOCATED. | 


INSERT STATEMENT 


<INSERT STATEMENT> ::= INSERT (<SOURCE PART>, <QUEUE 
PART> <PRIORITY>) 


<SOURCE PART> ::= <COMPLEX MESSAGE IDENTIFIERD 
<QUEUE PART> ::= <COMPLEX QUEVE IDENTIFIER> 


<PRIORITY> ::= , TOP / <EMPTY> 
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EXAMPLES: 

INSERT (MESSAGEID, QUEUEID): 

INSERT (MESSAGEID, QUEUEID, TOP); 

INSERT (MESSAGEARRAYID(1), QUEUEARRAYID(1)); 
SEMANTICS: 


1. THE <INSERT STATEMENT> CAUSES THE MESSAGE REFERENCED BY 
<SOURCE PART> TO BE LINKED INTO THE QUEUE REFERENCED BY 
<QUEVE PART). 


e. IF <PRIORITY> EQUALS FALSE OR IS <EMPTY>, THE MESSAGE IS 
LINKED INTO THE TAIL OF THE QUEVE, OTHERWISE IT IS LINKED 
INTO THE HEAD OF THE QUEUE. 


PRAGMATICS: 


THE <INSERT STATEMENT> LINKS THE MESSAGE IDENTIFIED BY THE FIRST 
PARAMETER INTO THE QUEVE REFERENCED BY THE SECOND PARAMETER. IF 

<PRIORITY> IS NOT GIVEN, THE MESSAGE IS LINKED INTO THE END OF 

THE QUEUE, OTHERWISE IT IS LINKED INTO THE BEGINNING OF THE 

QUEUE. LINKING INTO THE END OF THE QUEVE WILL PRESERVE THE TIME 

ORDER OF THE MESSAGES IN THAT QUEUE; LINKING’ IT INTO THE 

BEGINNING INSURES THAT THAT MESSAGE WILL BE THE NEXT ONE 

REMOVED FROM THAT QUEUE, UNLESS ANOTHER MESSAGE IS LINKED INTO. 
THE HEAD IN THE MEANTIME. 


IF THE QUEUE REFERENCED IS INACTIVE (NULL), AN INVALID CONDITION 
IS CREATED AND THE PROCESS WILL BE TERMINATED. 
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FLUSH STATEMENT 


<FLUSH STATEMENT> ::= FLUSH (<QUEUE PART>) 


<QUEUE PART> ::= <COMPLEX QUEUE IDENTIFIER> / <QUEUE ARRAY 
IDENTIF IER> 


EXAMPLES: 


FLUSH (QUEUEID) ; 


FLUSH (QUEUEARRAYID(3)); 


SEMANTICS: 


1. THE <FLUSH STATEMENT> CAUSES ALL THE MESSAGES IN A QUEUE TO 
BE REMOVED FROM THE QUEUE. 


eC. IF THE <QUEUE PART> IS EMPTY, THE STATEMENT IS IGNORED. 
3. IF THE QUEVE INDICATED BY <QUEUVE PART> IS NOT ACTIVE, THE 
PROCESS IS TERMINATED. | 


PRAGMATICS: 


THE <FLUSH STATEMENT> CAUSES ALL MESSAGES IN THE QUEVE TO BE 
DISCARDED. THE QUEUE REMAINS ACTIVE. MESSAGES WHICH HAVE BEEN 
FLUSHED FROM THE QUEVE NO LONGER EXIST IN THE SYSTEM. 
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ENABLE .QUEUE STATEMENT 


<ENABLE .QUEVE STATEMENT> ::= ENABLE.QUEVE (<QUEUE 
DESIGNATOR>, <QUEUE NAME>) | 


<QUEUE DESIGNATOR> ::= <QUEUE IDENTIFIER> / <QUEUE. ARRAY 


IDENT IF IER> 
<QUEUE NAME> ::= <EXPRESSION> 
EXAMPLES: 


DECLARE NAME .Q CHARACTER (10); 
QUEUE A, Q(10); | 


ENABLE.QUEUE (A, "MY.QUEUE"); 
NAME.Q := "HIS.QUEUE” CAT "1"; 


ENABLE.QUEUE (Q, NAME.Q): 


SEMANTICS: 


ENABLE .QUEUE INITIALIZES A QUEVE/QUEUE ARRAY. IT IS NOT POSSIBLE 
TO INITIALIZE ONE ELEMENT OF A QUEUE ARRAY. <QUEUVE NAME> 

DEFINES THE PHYSICAL NAME OF THE QUEUE AND CANNOT BE LONGER 

THAN 10 CHARACTERS. 


QUEVES MUST BE INITIALIZED BEFORE THEY CAN BE USED IN <QUEUE 
FUNCTION>S AND <QUEUVE STATEMENT®S (EXCEPT THE <QUEUE.INFO 
STATEMENT>). - 


IF THE QUEVE BEING ENABLED EXISTS (I.E. HAS BEEN ENABLED BY 
ANOTHER PROCESS) THEN THE CURRENT PROCESS IS ATTACHED TO MIT 
ONLY IF THE NUMBER OF ELEMENTS IN THE QUEUE IS LESS THAN OR 


FQUAL TO THE ELEMENTS IN THE EXISTING QUEUE. OTHERWISE 
PROGRAM IS TERMINATED. 


DISABLE .QUEUE STATEMENT 


—~ ow eee ame ew ane ae ee ew ee em cow asm ce eee em a ame em ooo ce ow we 


<DISABLE .QUEUE STATEMENT> ::= DISABLE.QUEUE 
(<QUEVE DESIGNATOR?) ) 


<QUEUE DESIGNATOR> ::= <QUEUE IDENTIFIER / 
<QUEUE ARRAY IDENTIFIER 


EXAMPLE 

DISABLE .QUEUE (A); 

DISABLE .QUEVE (Q); 

DISABLE .QUEVUE (Q(3)); IS ERRONEOUS. 
SEMANTICS: 
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THE 


THE <DISABLE.QUEUE STATEMENT> DETACHES A PROCESS FROM A QUEUE. 
IF THE NUMBER OF PROCESSES ASSOCIATED WITH A QUEVE IS ZERO THEN 


THE QUEVE IS FLUSHED (IF REQUIRED) AND DE-ACTIVATED. 


IT 1S NOT POSSIBLE TO DISABLE AN ELEMENT OF A QUEUE ARRAY. 
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TRANSFER.MESSAGE STATEMENT 


<TRANSFER.MESSAGE STATEMENT> ::= TRANSFER.MESSAGE 
<SOURCE MESSAGE DESIGNATOR> TO <DESTINATION 
MESSAGE DESIGNATOR) | 


<SOURCE MESSAGE DESIGNATOR): := <EXPRESSTON>D / 
<MESSAGE ADDRESS GENERATOR> 


<MESSAGE ADDRESS GENERATOR> ::= <COMPLEX MESSAGE IDENTIFIER>/ 
<COMPLEX MESSAGE IDENTIFIER>, <ADDRESS GENERATOR> 


<DESTINATION MESSAGE DESIGNATOR> ::= <ADDRESS GENERATOR> / 
<MESSAGE ADDRESS GENERATOR> 


EXAMPLES: 
DECLARE 
01 WORK.AREA REMAPS BASE CHAR (1000) 
02 INBIT (100) 
02 MSG.TRAN.NUM CHAR(3) 
MESSAGE M, FROM(3); 
TRANSFER.MESSAGE "002" TO M,MSG.TRAN.NUM; 
TRANSFER.MESSAGE FROM(1) TOM; 
SEMANTICS: 


TRANSFER.MESSAGE TRANSFERS DATA FROM <SOURCE MESSAGE DESIGNATOR> 
TO <DESTINATION MESSAGE DESIGNATOR>. SOURCE AND DESTINATION 
MESSAGE DESIGNATORS CAN BE DESCRIPTORS TO DATA INSIDE THE BASE 
~ LIMIT OF PROCESS OR THEY CAN REFERENCE SPECIFIC FIELDS IN 
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MESSAGES. A SPECIFIC FIELD WITHIN A MESSAGE IS REFERENCED BY 
SPECIFYING THE MESSAGE (WITH A <COMPLEX MESSAGE IDENTIFIER>) 
AND A TEMPLATE (REMAPS BASE DATA ITEM) WHICH SPECIFIES THE PART 
OF THE MESSAGE TO BE ACCESSED. 


IF A MESSAGE IS TRANSFERRED TO ANOTHER: MESSAGE THEN PHYSICAL 
MOVEMENT OF MESSAGE DOES TAKE PLACE. THE <ADDRESS GENERATOR> 
FIELDS DETERMINE THE TYPE OF MESSAGE TRANSFER, (I.E. LEFT 
JUSTIFIED BLANK FILLED OR RIGHT JUSTIFIED ZERO FILLED). 


MCS COMMUNICATE STATEMENT 


MCS COMMUNICATE ::= MCS.COMMUNICATE (<RESULT PART>, 
<MESSAGE PART>, <QUEUE PART>) 


<RESULT PART> ::= <ADDRESS GENERATOR> 
<MESSAGE PART> ::= <EXPRESSION> 
<QUEVE PART> ::= <EMPTY> /, QUEUE FILE DESIGNATOR> 


<QUEVE FILE DESIGNATOR>D ::= <FILE DESIGNATOR / 
<FILE DESIGNATOR> <KEY PART> 


<FILE DESIGNATOR> ::= <FILE IDENTIFIERD / 
<SWITCH FILE IDENTIFIER> (<EXPRESSION>) 


<KEY PART> ::= [<ADDRESS GENERATOR>] ; 


SEMANTICS: 


SEE THE B1700 MCS MANUAL FOR DETAILS. 
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PRAGMATICS: 


THE PURPOSE OF THE MCS.COMMUNICATE STATEMENT IS TO PROVIDE. 


COMMUNICATION BETWEEN THE MCS (MESSAGE CONTROL SYSTEM) AND THE 
NETWORK CONTROLLER. 


EACH PROGRAMMER HAS HIS GWN WAY OF DGING THINGS. WITHOUT 
STIFLING CREATIVITY, HOWEVER, [IT IS DESIRASLE TO MAINTAIN SOME 
HOMOGENEITY IN CODING TECENIGUSS THE ADVANTAGES ARE OBVIOUS: 
MOFe UNDERSTANDABLE PROGRAMS AND CASTER MAINTERANCE <ESPECIALLY 
BY THOSE CTHER THAN THE PROGRAMS AUTHOP). 


ACCORDINGLY, THE FOLLOWING CODING GUIDELINES ARE SUGGESTED: 


be: MSE THE “TOP DOWN" PROGRAMMING METHOD. THINK IN TERMS OF 
FUNCTIONS AND AVOID A LOT OF (GNLINE CODE. THIS METHOD OF 
CODING IS MUCH EASTER TO FOLLOW BECAUSE IT KEEPS PROCEDURES 
SHORTER. THE ARGUMENT FOR SHORT PROCEDURES PARALLELS THE 
CASE AGAINST THE GO-TO: THE HUMAN SPAN OF ATTENTION IS 
SMALL-~-IF IT MUST RANGE OVER MANY PAGES OF CODING, THE 
READER MAY BECOME CONFUSED. YGU MIGHT GO SO FAR AS TO 
CRITICIZE ANY PROCEDURE THAT CONTAINS GREATER THEN N- ("N" 
MIGHT BE AS LOW AS 3) LEVELS OF DO-ENDS OR IS LONGER THAN 
1 PAGE. AFTER ALL, AREN-T WE PUSHING PROCEDURE-ORIENTED 
LANGUAGES’? 


2. MINIMIZE THE USE OF GLOBALS AND KEEP THE SCOPE OF A 
VARTABL.E SMALL. OTHERWISE, YOU CAN RUN INTO SIDE EFFECTS 
THAT ARE DIFFICULT TO DEBUG. GLOBALS ARE SIMILAR TO GO TO2S 
IN THAT THEY DEMAND A BROAD ATTENTION SPAN. 


3. USE DEFINES INSTEAD OF INLINE LITERALS WHERE POSSIBLE. THIS 
MAKES CHANGES EASTER BECAUSE THEY ARE CONFINED TO THE 
DEFINE. LITERALS ARE NOT CROSS-REFERENCED. 


4“. =DON-T DEFINE YOUR OWN NAMES AS RESERVED WORDS. 
DEFINE F AS #FOREVERs#; 
DOF: 
ENO; 


MAY BE CRYPTIC TO ANOTHER PROGRAMMER... 


ch 


SOWARE OF OVERUSE OF THE DEFINE: 
ce NESTING DEFINES TOO DEEPLY CAN CAUSE CONFUSION. 


3. A DEFINE THAT CONTAINS A GREAT DEAL OF CODING MIGHT 
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BETTER BE A PROCEDURE. 


C. CREATING YOUR OWN PRIVATE LANGUAGE BY USING DEFINES 
CAN DESTROY EASE OF UNDERSTANDING. 


DON-T USE CONSTRUCTS THAT OBSCURE THE PROGRAM-S 
MEANING--ESPECIALLY BEWARE OF UNSAFE CONSTRUCTS SUCH AS 
DESCRIPTOR, SAVE AND RESTORE. AVOID TRICKY CODING 
TECHNIQUES--CODE IN A STRAIGHT FORWARD MANNER. COMPLICATED 
CODE MEANS COMPLICATED DEBUGGING AND MAINTENANCE. 


SEPARATE PROCEDURES SO THEY ARE EASY TO LOOK AT~-USE A FEW 
BLANK LINES OR A LINE OF ASTERISKS. 


CODE CONSISTENTLY AND INDENT CONSISTENTLY. FOR EXAMPLE: 


IF CONDITION THEN 
A+B; 
ELSE 
B-+-A; 

IF CONDITION THEN 
DO IT; 
A+B; 
C+D; 
END IT; 

ELSE : 

DO WORK: 
E@*F; 
GH; 

END WORK; 


IFS AND ELSES SHOULD BE IN THE SAME COLUMN. SO SHOULD DOS 
AND ENDS. 
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START TYPE DECLARATIONS IN THE SAME COLUMN THROUGHOUT THE 
PROGRAM. 


DECLARE O01 A, 

O02 BCD BIT(4), 

O2 NEXT.GUY BIT(16), 
Oe E BIT(1), 

OOF, 

03 GHIJK BIT(10); 


IS HARDER TO READ THEN 


DECLARE 
O1 A, 
Oe BCD BIT(4), 
O2 NEXT .GUY BIT(16), 
Oe E BIT(1), 
Oe F, 


03 GHIJK BIT(10); 


ANOTHER SUGGESTION IS TO INDENT PROCEDURES AS THE LEXIC 
LEVEL INCREASES. 


A MOTHERHOOD AND APPLE PIE HINT: USE DESCRIPTIVE NAMES. 
DON-T USE CRYPTIC ABBREVIATIONS OR “ALMOST CORRECT" 
SPELLINGS: RECRD FOR RECORD, ETC. 


NAME ALL. DO GROUPS. 


ALPHABETIC INDEX: 
ACCEPT STATEMENT 
ACCESS FILE HEADER STATEMENT 
ACCESS FILE INFORMATION 
ACCESS OVERLAY 
ACCESS-FPB 
ADDRESS AND VALUE PARAMETERS. 
ADDRESS GENERATING FUNCTIONS 
ADDRESS GENERATORS 
ADDRESS MODIFIER 
ADDRESS VARIABLES 
ALL..AREAS.AT.OPEN 


ALLOCATE FUNCTION 
AMPERSAND OPTION 


APPENDIX T: SYNTAX OF THE SDL LANGUAGE 
APPENDIX II: RESERVED AND SPECIAL WORDS 
APPENDIX III: SDL CONTROL CARD OPTIONS 
APPENDIX IV: PROGRAMMING OPTIMIZATION 
APPENDIX IX: SDL MONITORING FACILITY 
APPENDIX V: SYSTEM CONTROL CARDS 
APPENDIX VI: CONDITIONAL COMPILATION 
APPENDIX VII: SDL PROGRAMMING TECHNIQUES 


APPENDIX VIII: THE SDL RECOMPILATION FACILITY 
APPENDIX X: BURROUGHS B1700 DATA SORMUNTC RT TONS SDL 


APPENDIX XI: SDL CODING SUGGESTIONS 
AREA.BY.CYLINDER 


ARITHMETIC OPERATORS 

ARRAY 

ARRAY PAGE TYPE STATEMENT 

ASSIGNMENT STATEMENT 

ASSIGNMENT STATEMENTS AND EXPRESSIONS 
ASSIGNOR 

BASE REGISTER 

BASIC COMPONENTS OF THE SDL LANGUAGE | 
BASIC STRUCTURE OF THE SDL PROGRAM 
BINARY CONVERSION 

BIT STRING 

BUFFERS 


BUMP 
BUMP 

CALLING ABILITY 

CASE EXPRESSION 

CASE STATEMENT | 

CHANGE STATEMENT (FILE ATTRIBUTE STATEMENT) 
CHARACTER STRING 

CHECK OPTION 


CLEAR STATEMENT 
CLOSE STATEMENT 


CODE OPTION 

CODE OPTION 

COMMUNICATE 

COMPILE CARD INFO 
CONCATENATION 

CONDITIONAL COMPILATION 
CONDITIONAL EXPRESSION 
CONSOLE SWITCHES 

CONTROL CARD OPTIONS FOR B1700 
CONTROL CARD OPTIONS FOR 85500 
CONTROL OPTION 

CONTROL OPTION 

CONTROL STACK BITS 

CONTROL STACK TOP 

CONVERT 

COROUTINE STATEMENT 

CREATE MASTER OPTION 

CSSIZE OPTION 


DATA ADDRESS 

DATA TYPES 

DATE FUNCTION 
DC.WRITE STATEMENT 
DCSDL DECLARATIONS 
DCSDL EXTENSIONS 
DCSDL FUNCTIONS 

DCSDL STATEMENTS 
DE.ALLOCATE STATEMENT 
DE BLANK 

DEBUG OPTION 

DEBUG OPTION 

DECIMAL CONVERSION 
DECLARATION STATEMENT 


DECLARE STATEMENT 
DECREMENT 


DEFINE INVOCATION 
DEFINE STATEMENT 
DELIMITED TOKEN 
DESCRIPTORS - 

DETAIL OPTION 

DETAIL OPTION. 

DEVICE 

DEVICE 

DISABLE. INTERRUPTS 
DISABLE.QUEUE STATEMENT 
DISK ALLOCATION 

DISK ALLOCATION 

DISK DRIVE ASSIGNMENT 
DISK FILE 


DISPATCH | 
DISPLAY BASE 
DISPLAY STATEMENT 
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19-6 
16-22 
16-2) 
10-10 
22-! 


“Atel 


13-19 
19-4 
19-1 
19-3 
19-6 
13-18 
13-le 
13-6 
16-47 
e4—] 
19-3 
19-6 
ls-l2 
5-1 


Set 


26-10 
26-2 
26-1 
26-8 
26-10 


~—e6-17 


16-20 
19-3 
19-6 
13-9 
3-1 
5-1 
5-1 
1i-3 
16-e3 


7-3 


7-1 
13-17 
12-6 
19-3 


19-6 


~6-le 


—(*16-28 
16-18 
26-2) 


6-18 

6-18 
6-18 

6-16 
16-35 
13-4 
13-19 
15-13. 


DO GROUPS 

DOUBLE OPTION 

DOUBLE OPTION 

DUMP 

DUMP FOR ANALYSIS 
DYNAMIC DECLARATIONS 
DYNAMIC FILE CHANGE 
DYNAMIC MEMORY BASE 
DYNAMICSIZE OPTION 


ENABLE. INTERRUPTS 
ENABLE .QUEUE STATEMENT 
END.OF .PAGE .ACTION 
END.OF .PAGE .ACTION 
ERROR COMMUNICATE 
ESSIZE OPTION 


EU. ASSIGNMENT 

EU. ASSIGNMENT 

EVALUATION STACK TOP 

EXECUTABLE STATEMENT 

EXECUTABLE STATEMENTS 

EXECUTE 

EXECUTE-FUNCTION STATEMENT 
EXECUTE-PROCEDURE STATEMENT 
EXPAND. DEF INES 

EXPRESSIONS 

FETCH 

FETCH.COMMUNICATE .MSG.PTR 

FIG 1. PROCEDURE NESTING 

FIG 2. SCOPE AND CALLING ABILITY 
FIG 3. OPERATOR PRECEDENCE TABLE 


FILE ATTRIBUTE STATEMENT (CHANGE STATEMENT) 


FILE DECLARATIONS 
FLUSH STATEMENT 
FORMALCHECK 
FORMALCHECK 
FORMALCHECK OPTION 
FORWARD DECLARATION 
FREEZE PROGRAM 


GENERAL ORIENTATION: THE METALANGUAGE 


GROUP TERMINATION STATEMENT 
HALT 

HARDWARE MONITOR 
HARDWARE MONITOR 

HASH CODE 

HEX OPTION 

HEX . SEQUENCE . NUMBER 
1/0 CONTROL STATEMENTS 
IDENTIFIER 

IDENTIFIER 

IF STATEMENT 

INDEXING 

INITIALIZE. VECTOR 
INSERT STATEMENT 


INTERPRETER OPTION 
INTERPRETER OPTION 


INTERROGATE INTERRUPT STATUS 


INTRINSIC OPTION 
INTRINSICS © 
LABEL 


LENGTH 
LEXICOGRAPHIC LEVEL 
LIMIT REGISTER 

LIST OPTION 


LISTALL OPTION 
LISTALL OPTION 
LOCATION 

LOCK 


LOGICAL OPERATORS 

MAKE .DESCRIPTOR 

MAP OPTION 

MCS COMMUNICATE STATEMENT 
MEMORY SIZE 

MERGE OPTION 

MESSAGE DECLARATION 
MESSAGE LINKAGE MECHANISM 
MESSAGE. INFO STATEMENT 
METASYMBOLS OF BNF 

MODE - 

MODE 

MODIFY INSTRUCTION 
MONITOR | 
MONITOR FILE 

MULTI PACK 


NAME OF DAY 

NAME STACK TOP 
NESTING 

NESTING LEVEL 

NEW OPTION 

NEW OPTION 

NEXT TOKEN 
NEXT-PREVIOUS. ITEM 
NO OPTION 

NO OPTION 

NO SEQ 

NO SEQ OPTION 
NO.DUPLICATES OPTION 
NO. SOURCE . OPTION 
NODUPL ICATES 


NON-STRUCTURED DECLARATIONS 


NSSIZE OPTION 
NSSIZE OPTION 

NULL STATEMENT 
NUMBER. OF . STATIONS 
OPEN OPTION 


Gu feed fee PD 


—2 2 Ged Qewe 


rhc a bok ce 
VMIV-NMONW-DIGISF 


OPEN STATEMENT 

OPERATOR PRECEDENCE TABLE 
OVERLAY 

PACK. ID. 

PACK.ID | 

PAGE OPTION 

PAGE OPTION 

PAGED ARRAY DECLARATIONS 
PARITY SPECIFICATION 
PARITY.ADDRESS 

POLISH NOTATION 

PPROF ILE 

PPSSIZE OPTION 


PREVIOUS. ITEM 

PRIMARY ELEMENTS OF THE EXPRESSION 
PROCEDURE BODY 
PROCEDURE ENDING 
PROCEDURE HEADING 
PROCEDURE NESTING 
PROCEDURE STATEMENT 
PROCEDURE STATEMENT 
PROCEDURE, TYPED 

PROF ILE 

PROGRAMMING OPTIMIZATION 
PROGRAMMING TECHNIQUES 
QUEUE DECLARATIONS 
QUEUE .FAMILY.SIZE 
QUEUE. INFO STATEMENT 
READ CASSETTE 

READ STATEMENT 

RECEIVE STATEMENT 
RECOMPILATION FACILITY 
RECOMPILE OPTION 
RECORD SIZE 

RECORD SIZE 

REEL NUMBER 

REEL NUMBER 

RE INSTATE 

RELATIONAL OPERATORS 
REMAPPING 

REMAPPING 

REMOTE KEY 

REMOVE STATEMENT 
REPLACE OPERATORS 
REPLACE, DESTRUCTIVE 
REPLACE, NON-DESTRUCTIVE 
RESERVED WORDS 


RESTORE 

RETURN STATEMENT 
REVERSE STORE 
RUN-TIME MONITOR 
SAVE : 

SAVE 


SAVE STATE 

SCOPE. 

SCOPE OF PROCEDURES 
SEARCH SERIAL LIST 
SEARCH STATEMENT 
SEARCH.LINKED.LIST 
SEARCH.SDL .STACKS 
SEEK STATEMENT 
SEGMENT STATEMENT 
SEND STATEMENT 

SEQ OPTION 

SEQ OPTION 

SEQUENCE .NUMBER | 
SINGLE SPACE OPTION 


SIZE OPTION 

SIZE OPTION 

SKIP STATEMENT 
SORT _ 

SORT .SEARCH 

SORT .STEP.DOWN 
SORT.SWAP > 
SORT . UNBLOCK 
SORTER.STATION 
SPACE. STATEMENT 
SPO INPUT PRESENT 
STOP STATEMENT 
STRUCTURED DECLARATIONS 
SUBBIT AND SUBSTR 


SUPPRESS OPTION 

SWAP 

SWITCH FILE DECLARATIONS 
SYNTAX OF THE SDL LANGUAGE 
SYSTEM CONTROL CARDS FOR B1700 
SYSTEM CONTROL CARDS FOR BS500 
THAW PROGRAM 

THREAD. VECTOR 

TIME FUNCTION 

TODAY2S.DATE 

TRACE 

TRANSFER.MESSAGE STATEMENT 
UNARY OPERATOR 

UPDATE OPTION 

USE INPUT BLOCKING 

USE INPUT BLOCKING 

USE STATEMENT 

VALUE DESCRIPTOR 

VALUE GENERATING FUNCTIONS 
VALUE VARIABLES 

VARIABLE DATA FIELDS 
VARIABLE RECORD 


VOID OPTION 


VOID OPTION 
VSSIZE OPTION 
VSSIZE OPTION 
WAIT STATEMENT 
WORK FILE - 


WRITE STATEMENT | 


XMAP OPTION 


XREF 
XREF . ONLY 
ZIP STATEMENT 


